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F PREFACE. 


J 


WHY BASIC? BASIC is a problem-solving language that is easy to learn and conversational , and has 
s wide application in the scientific, business, and educational communities. It can be used to solve 


both simple and complex mathematical problems from the user's Teletype® and is particularly suited for 


time-sharing . 


In writing a computer program, it is necessary to use a language or vocabulary that the computer 
recognizes. Many computer languages are currently in use, but BASIC is one of the simplest of these 
because of the small number of clearly understandable and readily learned commands that are required, 


its easy application in solving problems, and its practicality in an evolving educational environment. 


BASIC is similar to other programming languages in many respects; and is aimed at facilitating com- 
munication between the user and the computer in a time-sharing system. As with most programming 


languages, BASIC is divided into two sections: 


a. Elementary statements that the user must know to write simple programs, and 


. b. Advanced techniques needed to efficiently organize complicated problems. 


As a BASIC user, you type in a computational procedure as a series of numbered statements by using 


common English syntax and familiar mathematical notation. You can solve almost any problem by 
spending an hour or so learning the necessary elementary commands. After becoming more experienced, 
you can add the advanced techniques needed to perform more intricate manipulations and to express 
your problem more efficiently and concisely. Once you have entered your statements via the Teletype, 
simply type in RUN or RUNNH.. These commands initiate the execution of your program and return 


& your results almost instantaneously . 


SPECIAL FEATURES OF BASIC - BASIC incorporates the following special features: 


a. Matrix Computations - A special set of 13 commands designed exclusively for per- 
forming matrix computations. 


®Teletype is the registered trademark of Teletype Corporation. 


Alphanumeric Information Handling - Single alphabetic or alphanumeric strings or 
vectors can be read, printed, and defined in LET and IF... THEN statements. 
Individual characters within these strings can be easily accessed by the user. Con- 
version can be performed between characters and their ASCII equivalents. Tests can 
be made for alphabetic order. 


Program Control and Storage Facilities - Programs or data files can be stored on or 
retrieved from various devices (disk, DECtape, card reader, card punch, high- 
speed paper-tape reader, high-speed paper-tape punch and line printer). The user 
can also input programs or data files from the low-speed Teletype paper-tape reader, 
and output them to the low-speed Teletype paper-tape punch. 


Program Editing Facilities - An existing program or data file can be edited by adding 
or deleting lines, by renaming it, or by resequencing the line numbers. The user 
can combine two programs or data files into one and request either a listing of all 

or part of it on the Teletype or a listing of all of it on the high-speed line printer. 


Formatting of Output - Controlled formatting of Teletype output includes tabbing, 
spacing, and printing columnar headings. 


Documentation and Debugging Aids - Documenting programs by the insertion of 
remarks within procedures enables recall of needed information at some later date 
and is invaluable in situations in which the program is shared by other users. De- 
bugging of programs is aided by the typeout of meaningful diagnostic messages 
which pinpoint syntactical and logical errors detected during execution. 


& 
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CHAPTER 1 
. INTRODUCTION 


This chapter introduces the user to PDP-10 BASIC and fo its restrictions and characteristics. The best 


introduction lies in beginning with a BASIC program and discussing each step completely. 


_@ 


1.1 EXAMPLE OF A BASIC PROGRAM 


The following example is a complete BASIC program, named LINEAR, that can be used fo solve a sys- 


tem of two simultaneous linear equations in two variables 


ax +by =c 


dx + ey =f 


and then used to solve two different systems, each differing from the above system only in the constants 


cand f., If ae - bd is not equal to 0, this system can be solved to find that 


_ ce - bf g _ af - cd 
ae - bd id Y “ae - bd 
° If ae - bd =0, there is either no solution or there are many, but there is no unique solution. Study 


this example carefully and then read the commentary and explanation. (In most cases the purpose of 


each line in the program is self-evident.) 


10 READ AsBsDsE” 
15 LET G=A*E-B*D,) 
20 IF G=@ THEN 65) 
36 READ CoF,) 
37 LET X=(C*#E-B*F )/G) 
42 LET Y=(A*F-C#D)/G,) 
= 55 PRINT X»sY,) 
2a 60 GO TO 38,) 
65 PRINT "NO UNIQUE SOLUTION") 
° 70 DATA 15254,) 
@ 8 DATA 20-795) 
85 DATA 153245-7) 
90 END,) 


NOTE 


All statements are terminated by pressing the RETURN 
key (represented in this text by the symbol ,) ). The 
RETURN key echoes as a carriage return, line feed. 


1.2 DISCUSSION OF THE PROGRAM 


Each line of the program begins with a line number of 1 to 5 digits that serves to identify the line asa 
statement. A program is made up of statements. Line numbers serve to specify the order in which 

these statements are to be performed. Before the program is run, BASIC sorts out and edits the program, 
putting the statements into the orders specified by their line numbers; thus, the program statements can 
be typed in any order, as long as each statement is prefixed with a line number indicating its proper 
sequence in the order of execution. Each statement starts after its line number with an English word 
which denotes the type of statement. Unlike statements , commands are not preceded by line numbers 
and are executed immediately after they are typed in. (Refer to Chapter 9 for a further description of 
commands.) Spaces and tabs have no significance in BASIC programs or commands, except in messages 
which are printed out, as in line number 65 above. Thus, spaces or tabs may, but need not be, used 


to modify a program and make it more readable. 
With this preface, the above example can be followed through step-by-step . 
19 READ AsBsDoskE 


The first statement, 10, is a READ statement and must be accompanied by one or more DATA statements. 
When the computer encounters a READ statement while executing a:-program, it causes the variables 
listed after the READ to be given values according to the next available numbers in the DATA state- 
ments. In this example, we read A in statement 10 and assign the value 1 to it from statement 70 and, 
similarly, with B and 2, and with D and 4. At this point, the available data in statement 70 has been 


exhausted, but there is more in statement 80, and we pick up from it the value 2 to be assigned to E. 


15 LET G=A*E-B*D 


Next, in statement 15, which is a LET statement, a formula is to be evaluated. [The asterisk (*) is 
used to denote multiplication.] In this statement, we compute the value of AE - BD, and call the 
result G. In general, a LET statement directs the computer to set a variable equal to the formula on 


the right side of the equal sign. 
20. IF G=@ THEN 65 


If G is equal to zero, the system has no unique solution. Therefore, we next ask, in line 20, if G is 


equal to zero. 


a 


65 PRINT "NO UNIQUE SOLUTION" 
70 DATA 153254 

8a DATA 25-755 

&5 DATA 153345-7 

90 END 


If the computer discovers a "yes" answer fo the question, it is directed to go to line 65, where it prints 
NO UNIQUE SOLUTION. Since DATA statements are not executable statements, the computer then 
goes to line 90 which tells it to END the program. 


30 READ CsF 


If the answer is "no" to the question "Is G equal to zero ?", the computer goes to line 30. The com- 
puter is now directed to read the next two entries, -7 and 5, from the DATA statements (both are in 


statement 80) and to assign them to C and F, respectively. The computer is now ready to solve the 


system 
x +2y =-7 
4x +2y =5 
37 LET X=(C*E-B*F )/G 
42 LET Y=(A*F-C*D)/G 


In statements 37 and 42, we instruct the computer to compute the value of X and Y according to the 
formulas provided, using parentheses to indicate that C*E - B*F is calculated before the result is 
divided by G. 


35 PRINT Xs¥Y 
69 GO TO 32 


The computer prints the two values X and Y in line 55. Having done this, it moves on to line 60 where 
it is reverted to line 30. With additional numbers in the DATA statements, the computer is told in 


line 30 to take the next one and assign if to C, and the one after that fo F. Thus, 


x +2y =1 
4x +2y =3 


As before, it finds the solutions in 37 and 42, prints them out in 55, and then is directed in 60 to re- 
vert to 30. 


In line 30, the computer reads two more values, 4 and -7, which it finds in line 85. It then proceeds 


to solve the system 


x +2y =4 
4x + 2y =-7 
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and print out the solutions. Since there are no more pairs of numbers in the DATA statement available 


for C and F, the computer prints OUT OF DATA IN 30 and stops. 


If line number 55 (PRINT X, Y) had been omitted, the computer would have solved the three systems 
and then told us when it was out of data. If we had omitted line 20, and G were equal to zero, the & 
computer would print DIVBION BY ZERO IN 37 and DIVISION BY ZERO IN 42. Had we omitted 
statement 60 (GO TO 30), the computer would have solved the first system, printed out the values of a 
X and Y, and then gone to line 65, where it would be directed to print NO UNIQUE SOLUTION. 


The particular choice of line numbers is arbitrary as long as the statements are numbered in the order 
the machine is to follow. We would normally number the statements 10, 20, 30, ..., 130, so that 


later we can insert additional statements. Thus, if we find that we have omitted two statements 


between those numbered 40 and 50, we can give them any two numbers between 40 and 50 -- say 44 
and 46. Regarding DATA statements, we need only put the numbers in the order that we want them 

read (the first for A, the second for B, the third for D, the fourth for E, the fifth for C, the sixth for 
F, the seventh for the next C, etc.). In place of the three statements numbered 70, 80, and 85, we 


could have written the statement: 


75 DATA 1325482 9-TsSal9304a-7 


or, more naturally, 


710 DATA 13825452 
7S DATA -725 
80 DATA 1533 
85 DATA 45-7 
J 
to indicate that the coefficients appear in the first data statement and the various pairs of right-hand lan 


constants appear in the subsequent statements. 


The program and the resulting run is shown below as it appears on the Teletype. 


10 READ AsBsDoak 

15 LET G=A*E-B*D 

26 IF G=0 THEN 695 P 
32 READ CoF ” 
37 LET X=(C*E-B*F)/G 

42 LET Y=(A*F-C*D)/G . 
55 PRINT XosY PS 
6 GO TO 30 

65 PRINT "NO UNIQUE SOLUTION" 

70 DATA 13254 

80 DATA @sa-755 

65 DATA 123394s-7 

92 END 

RUN a 


(continued on next page) 


Gi 


LINEAR 113@3 19-OCT-69 
4 -5 +5980 

0666667 A.166667 

“3 -66667 33333 


OUT OF DATA IN 34 
TIMES @+1@ SECS. 


NOTE 


Remember to terminate all statements by pressing the 
RETURN key. | 


After typing the program, we type the command RUN and press the RETURN key fo direct the computer 
to execute the program. Note that the computer, before printing out the answers, printed the name 
LINEAR which we gave to the problem (refer to Paragraph 4.1) and the time and date of the computa- 
tion. The message OUT OF DATA IN 30, may be ignored here. However, in some instances, it indi- 
cates an error in the program. The TIME message, printed out at the end of execution, indicates the 
compile and execute time used by the program; this time is slightly dependent upon other jobs being 
processed by the computer and consequently will not be exactly the same each time the same program 


isrun. 


1.3 FUNDAMENTAL CONCEPTS OF BASIC 


BASIC can perform many operations such as adding, subtracting, multiplying, dividing, extracting 


square roots, raising a number to a power, and finding the sine of an angle measured in radians. 


1.3.1 Arithmetic Operations 


The computer performs its primary function (that of computation) by evaluating formulas similar to those 
used in standard mathematical calculation, with the exception that all BASIC formulas must be written 


ona single line. The following operators can be used to write a formula. 


Operator Example Meaning 
+ A+B add B to A 
+ +A A itself 
- A-B subtract B from A 
- -A make A negative 
: A *B multiply B by A 
/ A/B | divide A by B 
t X t2 find X2 the symbols ft and ** have 
bg X**2 find X2 the same meaning 


If we type A+B *C tD, the computer first raises C to the power D, multiplies this result by B, and 


then adds the resulting product to A. We must use parentheses to indicate any other order. For 


1-5 


~~ 


example, if it is the product of B and C that we want raised to the power D, we must write 


A + (B *C) t D; or if we want to multiply A +B by C to the power D, we write (A+B) *C tD. We 


could add A to B, multiply their sum by C, and raise the product to the power D by writing m4 


((A +B) *C) tD. The order of precedence is summarized in the following rules. 


a. The formula inside parentheses is evaluated before the parenthesized quantity is 
used in computations. 


b. Normally two operators cannot be contiguous. However the operators + and - 
can follow the operators *, /, **, or t (e.g., *-). In such a case, the +or 
- takes precedence over its leading *, /, **, or t. Otherwise: 


c. In the absence of parentheses in a formula, ** and ft take precedence over * 
and /, which take precedence over + and -. 


d. In the absence of parentheses in a formula whose only operators are * and /, 4 
BASIC performs the operations from left to right, in the order that they are 
read. 


e. In the absence of parentheses in a formula whose only operators are + and -, 
BASIC performs the operations from left to right, in the order that they are 
read. 


The rules tell us that the computer, faced with A - B - C, (as usual) subtracts B from A, and then C 
from their difference; faced with A/B/C, it divides A by B, and that quotient by C. GivenA tB tC, 


the computer raises the number A to the power B and takes the resulting number and raises it to the 


power C. If there is any question about the precedence, put in more parentheses fo eliminate possible 


ambiguities. 


1.3.2 Mathematical Functions 


In addition to these five arithmetic operations, BASIC can evaluate certain mathematical functions. 


These functions are given special three-letter English names. 


Function Interpretation 

SIN (X) Find the sine of X 

COS (X) Find the cosine of X X interpreted as 

TAN = (X) Find the tangent of X an angle measured 

COT (xX) Find the cotangent of X *n radians 

ATN  (X) Find the arctangent of X Xx 

EXP (X) Find e raised to the X power (e’’) it 
LOG (xX), a ae Find the natural logarithm of X (log to the base e) X interpreted i 
ABS (X) Find the absolute value of X (I X 1) asa 7 
SQR__(X) or SQRT(X) Find the square root of X (-/ X) number s 


CLOG (X) or LOGIO0(X) Find the common logarithm of X (log to the base 10) 


Other functions are also available in BASIC. They are described in Chapters 5 (INT, RND, SGN, TIM), 
7 (NUM, DET), 8 (string functions), and 10 (LOC, LOF). In place of X, we may substitute any formula 


or number in parentheses following any of these functions. For example, we may ask the computer fo find 
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W4A+ x? by writing SQR (4+ X 3), or the arctangent of 3X Sara: by writing 
ATN (3 * X - 2 * EXP (X) + 8). If the above value of(3} 7 is needed, the two-line program can 


be written: 


12 PRINT(S/6)417 
20 END 


and the computer finds the decimal form of this number and prints it out. 


1.3.3 Numbers 


A number may be positive or negative and it may contain up to eight digits, but it must be expressed 

in decimal form (i.e., 2, -3.675, 12345678, -.98765432, and 483.4156). The following are not _ 
numbers in BASIC: 14/3 and SQR(7). The computer can find the decimal expansion of 14/3 or SQR(Z),. 
but we may not include either in a list of DATA. We gain further flexibility by using the letter E, 
which stands for: times ten to the power. Thus, we may write .0012345678 as .12345678E-2 or 
12345678E=-10 or 1234.5678E-6. We do not write E7 as a number, but write IE7 to indicate that it is 

1 that is multiplied by 10’. 


1.3.4 Variables 


A simple (i.e., unsubscripted) numeric variable in BASIC is denoted by any letter or by any letter 
followed by a single digit. (Refer to Chapter 3 for a discussion of subscripted numeric variables and to 
Chapter 8 for a discussion of subscripted and unsubscripted string variables.) Thus, the computer inter- 
prets E7 as a variable, along with A, X, N5, 10, and Ol. A numeric variable in BASIC stands for a 
number, usually one that is not known to the programmer at the time the program is written. Variables 
are given or assigned values by LET and READ statements. The value so assigned does not change until 
the next time a LET or READ statement is encountered with a value for that variable. However, all 
numeric variables are set equal to 0 before a RUN. Consequently, it is only necessary to assign a value 


to a numeric variable when a value other than 0 is required. 


Although the computer does little in the way of correcting during computation, it sometimes helps if an 
absolute value hasn't been indicated. For example, if you ask for the square root of -7 or the logarithm 
of -5, the computer gives the square root of 7 along with an error message stating that you have asked 
for the square root of a negative number, or it gives the logarithm of 5 along with the error message 


that you have asked for the logarithm of a negative number. 


1.3.5 Relational Symbols 


Six other mathematical symbols of relation are used in IF-THEN statements where it is necessary fo 
compare values. An example of the use of these relation symbols was given in the sample program 


LINEAR. 


Any of the following six standard relations may be used: 


Symbol Example Meaning 
= A=B A is equal to B 
< A <B A is less than B 
<= A <=B A is less than or equal to B 
> A>B A is greater than B 
>= A >=B A is greater than or equal to B 
<> A <>B A is not equal to B 


Note that while BASIC outputs its answers with only six places of accuracy, variables and formulas 
may have values accurate fo more than six places. If it is desired that result X be checked to only 


N places, the function 
INT CX*¥1ATN+.5)/1G1N 


should be used. 


1.4. SUMMARY 


Several elementary BASIC statements have been introduced in our discussions. In describing each of 
these statements, a line number is assumed, and brackets are used fo denote a general type. For 


example, [variable] refers to any variable. 


1.4.1 LET Statement 


The LET statement is used when computations must be performed. This command is not of algebraic 
equality, but a command fo the computer to perform the indicated computations and assign the answer 
to a certain variable. Each LET statement is of the form: 

LET [variable] = [formula] 


or 
[variable] = [formula] 


Generally , several variables may be assigned the same value by a single LET statement. Examples of 


assigning a value fo a single variable are given in the following two statements: 


108 LET X=X+1 
259 W7=(W-X493)*CZ-A/(A-B)-17) 
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om Examples of assigning a value to more than one variable are given in the following statements: 


7) X=Y3=A(301)=1 The variables X, Y3, and A(3,1) are 
: assigned the value I. 
| % LET W=Z=34X-4%+Xt2 The variables W and Z are assigned the 
- value 3X-4X2 


1.4.2 READ and DATA Statements 


READ and DATA statements are used to enter information into the computer. We use a READ statement 
to assign to the listed variables those values which are obtained from a DATA statement. Neither 
statement is used without the other. A READ statement causes the variables listed in it to be given in 


order, the next available numbers in the collection of DATA statements. Before the program is run, 


the computer takes all of the DATA statements in the order they appear and creates a large data block. 
Each time a READ statement is encountered anywhere in the program, the data block supplies the next 
available number or numbers. If the data block runs out of data, the program is assumed to be finished 


and we get an OUT OF DATA message. 


Since we have to read in data before we can work with it, READ statements normally occur near the 


beginning of a program. The location of DATA statements is arbitrary, as long as they occur in the 


correct order. A common practice is to collect all DATA statements and place them just before the 


END statement. 


Each READ statement is of the form: 


READ [sequence of variables] 


Each DATA statement is of the form: 


DATA [sequence of numbers] 


150 READ XsYsoZsX1lsY2s09 
330 DATA 482517 
3406 DATA 6¢734E2°39-174-32153-1415927 
4 234 READ BCK) 
_ 263 DATA 2@3339557393911310583694 
16 READ RCIsJ) 
o 446 DATA -3953-9392 03732 098769 -437 -234E-5 


a 450 DATA 2676559 555765 2e3789E2 


Remember that numbers, not formulas, are put in a DATA statement, and that 15/7 and SQR(3) are 


formulas. Refer to Chapter 3 for a discussion of the subscripted variables. 
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1.4.3 PRINT Statement 
The common uses of the PRINT statement are: 


a. to print out the results of some computations 
. to print out verbatim a message included in the program o 


¢. acombination of the two 


d. to skipa line. 


The following are examples of a type a.: 


180 PRINT XsSQRCX) 
135 PRINT XsYsZs B*B-4%*A*Cs EXPCA-B) 


The first example prints X, and a few spaces to the right, the square root of X. The second prints” 


five different numbers: 


x, Y, Z, B2, -4AC, and e7® 


The computer computes the two formulas and prints up to five numbers per line in this format. 


The following are examples of type b.: 


100 PRINT “NO UNIQUE SOLUTION" 
43@ PRINT “X VALUE"s "SINE". "“KESOLUT ION’ 
32 PRINT Xs™sD 


Line 100 prints the sample statement, and line 430 prints the three labels with spaces between them. 


The labels in 430 automatically line up with the three numbers called for in PRINT statement 500. 


The following is an example of type c.: 


15a PRINT "THE VALUE OF X IS" X 
30 PRINT “THE SGUARE ROOT OF" X "IS" SQRCX) 


If the first has computed the value of X to be 3, it prints out: THE VALUE OF X 5S 3. If the second 
has computed the value of X to be 625, it prints out: THE SQUARE ROOT OF 625 IS 25. 


The following is an example of type d.: ry 


250 PRINT 


The computer advances the paper one line when it encounters this command. 


(ia 


eo 
ay 


1.4.4 GO TO Statement 


The GO TO statement is used when we want the computer to unconditionally transfer to some statement 
other than the next sequential statement. In the LINEAR problem, we direct the computer to go 
through the same process for different values of C and F with a GO TO statement. This statement is in 
the form of GO TO [line number] . 


15 GO TO 75 


1.4.5 IF - THEN Statement 


The IF - THEN statement is used to transfer conditionally from the sequential order of statements 
according fo the truth of some relation. It is sometimes called a conditional GO TO statement. Each 


IF - THEN statement is of the form: 


IF [formula] [relation] [formula] , THEN [line number] 
The comma preceding THEN is optional and can be omitted. 


The following are two examples of this statement: 


40 IF SINCX)<=M THEN 8@ 
20 IF G=@s5 THEN 65 


The first asks if the sine of X is less than or equal to M, and skips fo line 80 if so. The second asks 
if G is equal to 0, and skips to line 65 if so. In each case, if the answer to the question is no, the 


computer goes to the next line. 


1.4.6 ON - GO TO Statement 


The IF - THEN statement allows a two-way fork in a program; the ON - GO TO statement allows a 
many-way switch. The ON - GO TO statement has the form: 


ON [formula] , GO TO [line number] , [line number], ... [line number] 


The comma preceding the GO TO can be omitted. For example: 


88 ON X GO TO 18605 2005 150 


This condition causes the following to occur: 
if X = 1, the program goes to line 100, 


If X =2, the program goes to line 200, 
If X = 3, the program goes to line 150 
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In other words, any formula may occur in place of X, and the instruction may.contain any number of 
line numbers, as long as it fits ona single line. The value of the formula is computed and its integer 
part is taken. If this is 1, the program transfers to the line whose number is first on the list; if its 
integer part is 2, the program transfers to the line whose number is the second one, etc. If the integer 
part of the formula is below 1, or larger than the number of line numbers listed, an error message is 
printed. To increase the similarity between the ON - GO TO and IF - THEN instructions, the instruc- 


tion 
75 IF X>5 THEN 208 
may also be written as: 


79 IF X>5 GO TO 2@0 


Conversely, THEN may be used in an ON - GO TO statement: 


1.4.7 END Statement 


Every program must have an END statement, and it must be the statement with the highest line number 


in the program. 


999 END 


. 


& 


CHAPTER 2 
LOOPS 


We are frequently interested in writing a program in which one or more portions are executed a number 
of times, usually with slight variations each time. To write a program in such a way that the portions 
of the program to be repeated are written just once, we use loops. A loop is a block of instructions 


that the computer executes repeatedly until a specified terminal condition is met. 


The use of loops is illustrated and explained by using two versions of a program that performs the 
simple task of printing out the positive integers 1 through 100 together with the square root of 


each. The first version, which does not use a loop, is 101 statements long and reads 


10 PRINT 12SQR(1) 
20 PRINT 2sSOR(2) 

30 PRINT 3sSQR(3) 

990 PRINT 99sSQR(99) 
1990 PRINT 190sSQR(190) 
1910 END 


The second version, which uses one type of loop, obtains the same results with far fewer instruc~ 
tions (5 instead of 101): 


19 LET X=1 

20 PRINT XsS@RCX) 

30 LET X=X+1 

40 IF X<=19@ THEN 20 
38 END 


Statement 10 gives the value of 1 to X and initializes the loop. In line 20, both 1 and its square root 
are printed. Then, in line 30, X is increased by 1, toa value of 2. Line 40 asks whether X is less 
than or equal to 100; an affirmative answer directs the computer back to line 20, where it prints 2 

and 4/2 and goes to 30. Again, X is increased by 1, this time to 3, and at 40 it goes back to 20. 
This process is repeated -- line 20 (print 3 and V3), line 30 (X = 4), line 40 (since 4 < 100, go back 
to line 20), etc. -- until the loop has been traversed 100 times. Then, after it has printed 100 and its 
square root, X becomes 101. The computer now receives a negative answer to the question in line 40 
(X is greater than 100, not less than or equal to it), does not return to 20 but moves on to line 50, and 


ends the program. All loops contain four characteristics: 
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. initialization (line 10) 
the body (line 20) 


c. modification (line 30) 


ao a 


d. an exit test (line 40) 


2.1 FOR AND NEXT STATEMENTS 


BASIC provides two statements to specify a loop: the FOR statement and the NEXT statement. 


10 FCR X=1 TO 160 
28 PRINT X»SORCX) 
38 NEXT X 

30 END 


In line 10, X is set equal to 1, and a test is executed, like that of line 40 above. Line 30 carries 


out two tasks: X is increased by 1, and control transfers back to the test in line 10. There the test 


is carried out to determine whether to execute the body of the loop again or to go on to the state- 


ment following line 30. Thus, lines 10 and 30 take the place of lines 10, 30, and 40 in the pre- 


vious program. 


Note that the value of X is increased by 1 each time BASIC goes through the loop. If we want a 


different increase, e.g., 5, we could specify it by writing the following: 
10 FOR X=1 TO 10@ STEP 5 


and then the value of X on the first time through the loop would be 1, on the second time 6, on 
the third 11, and on the last time 96. The step of 5 which would take X beyond 100 to 101 causes 
control to transfer to line 50, which ends the program. The STEP may be positive, negative, or 
zero. We could have caused the original results to be printed in reverse order by writing line 10 


as follows: 


10 FOR X=1@@ TO 1 STEP-1 


In the absence of a STEP instruction, a step-size of +1 is assumed. 


The word BY may be substituted for the word STEP; FOR TO BY and FOR TO STEP statements are com- 


pletely equivalent. 


More complicated FOR statements are allowed. The initial value, the final value, and the step-size 


may all be formulas of any complexity. For example, we could write the following: 


FOR X=N+7*Z TO (Z-N)/3 BYC(N-4*Z)/10 
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For a positive or zero step-size, the loop continues as long as the control variable is less than or equal 
to the final value. For a negative step-size, the loop continues as long as the control variable is 


greater than or equal to the final value. 


If the initial value is greater than the final value (less than the final value for negative step-size), 
the body of the loop is not performed at all, but the computer immediately passes to the statement 
following the NEXT. The following program for adding up the first n integers gives the correct result 


0 when n is O. 


10 READ N 

20 LET S=8 

36 FOR K=1 TO N 
42 LET S=S+K 

30 NEXT K 

60 PRINT S 

76 GO TO 10 

4) DATA 331450 
99 END 


In the following description of the instructions used to specify a loop, a line number is assumed and 


brackets are used to denote a general type. 


A FOR statement has one of two forms: 


numeric ; 
FOR | variable | = [formula] TO [formula] STEP [formula] 


or 
numeric 
FOR | variable | = [formula] TO [formula] BY [formula] 
Most commonly, the expressions are integers and the STEP or BY is omitted. In the latter case a step- 
size of +1 is assumed. The accompanying NEXT statement has one of two forms. 
NEXT [variable] 
NEXT [variable, variable,. . . variable] 


The first form contains one variable that must be the same as that following FOR in the FOR statement. 
The second form of the NEXT statement contains two or more variables separated by commas. These 


variables must also match the variables in their accompanying FOR statements. 
When the second form of NEXT is used, the variables must be written in the same order as they would 


be written in separate NEXT statements. That is, the variable that matches the last FOR statement is. 


first, that which matches the next-to-last FOR is second, and the variable that matches the first FOR 
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statement is last. This causes the loops to be nested properly (refer to section 2.2). For example: 


FOR X FOR X 

FOR Y FOR Y 

FOR Z ~~ iis equivalent to FOR Z 

NEXT Z NEXT Z, Y, X 

NEXT Y * 
NEXT X 


Note that for each FOR statement there is one and only one variable in a NEXT statement, 


and vice versa. Some examples of FOR and NEXT statements are: 


30 FOR X=@ TO 3 STEP D . 
Be NEXT X 

120 FOR X4=(17+COS(Z))/3 TO 3* SQ@R(1Q) BY 174 

235 NEXT X4 

2Ag FOR X=& TO 3 STEP -1 

456 FOK J=-3 TO 12 BY 2 

SAA NEXT Us” 


Line 120 specifies that the successive values of X4 are .25 apart, in increasing order. Line 240 speci- 
fies that the successive values of X will be 8, 7, 6, 5, 4, 3. Line 456 specifies that J will take on 


values -3, -1, 1, 3, 5, 7, 9, and 11. If the initial, final, or step-size index values are given as 
formulas, these formulas are evaluated only upon entering the FOR statement; therefore, if after this na 
evaluation we change the value of a variable in one of these formulas, we do not affect the index 


value. — 


a 


The control variable can be changed in the body of the loop; it should be noted that the exit test 


always uses the latest value of this variable. 


The following difficulty can occur with loops, both FOR-NEXT loops and loops explicitly written with 
LET and IF statements (as in the example on page 2-1). The calculation of the index values (initial, 
final, and step-size) is subject to precision limitations inherent in the computer. These values are 
represented in the computer as binary numbers. When the values are integer, they can be represented 
exactly in binary; however, it is not always possible to represent decimal values exactly in binary 


when they contain a fractional part. For example, a loop of the form: 


40 FOR X=@ TO 10 STEP Gel 
95 NEXT X 


executes 100 times instead of 101 times because the internal value for 0.1 is not exactly 0.1 After 
the hundredth execution of the loop, X is not exactly equal to 10, it is slightly larger than 10, so the 


loop stops. Whenever possible, it is advisable to use indices that have integer values because then 


the loop will always execute the correct number of times. 
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2.2 NESTED LOOPS 


Nested loops (loops within loops) can be expressed with FOR and NEXT statements. They must be 


nested and not crossed as the following skeleton examples illustrate: 


Allowed Allowed Not Allowed 
FOR X FOR X FOR X 
Bees Y FOR Y FOR Y 
NEXT Y a Z NEXT X 
NEXT X NEXT Z NEXT Y 
FOR W 
NEXT W 
NEXT Y 
ae Z 
NEXT Z 
NEXT X 
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CHAPTER 3 
LISTS AND TABLES 


In addition to the ordinary variables used by BASIC, variables can be used to designate the elements 
of a list ora table. Many occasions arise where a list or a table of numbers is used over and over, 
and, since it is inconvenient to use a separate variable for each number, BASIC allows the program- 


mer to designate the name of a list or table by a single letter or a single letter followed by asingle digit. 


Lists are used when we might ordinarily use a single subscript, as in writing the coefficients of a 
polynomial (ay, Gyr Any vee, a) . Tables are used when a double subscript is to be used, as in writing 
the elements of a matrix (b, ). The variables used in BASIC consist of a single letter or a letter 

7 


and a digit which is the name of the list or table, followed by the subscript in parentheses. Thus, 


A(0), A(1), A@), ..., A(N) 


represents the coefficients of a polynomial, and 


B7(1,1), B7(1, 2), ..., BZ(N,N) 
represents the elements of a matrix. (Refer to Chapter 8 for a discussion of string variables.) 


The single letter or the letter and digit denoting a list or a table name may also be used without con- 
fusion to denote a simple variable. However, the same name may not be used to denote both a list and 
a table in the same program because BASIC recognizes a list as a special kind of table having only one 
column. The form of the subscript is flexible: A list item B(] + K) may be used, or a table item 


Q(A(3,7), B-C) may be used. The value of the subscript must not be less than zero. 


We can enter the list A(0), A(1), ..., A(10) into a program by the following lines: 


10 FOK I=@ TO 180 
2A READ ACT) 
30 NEXT I 


40 DATA 092 933759392 02 343°99123349-453 
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3.1 THE DIMENSION STATEMENT (DIM) 


BASIC automatically reserves room for any list or table with subscripts of 10 or fewer. However, if we 
want larger subscripts, we must use a DIM statement. This statement indicates to the computer that 
the specified space is to be allowed for the list or table. DIM can also be written as DIMENSION, 


@ 


For example, the instruction 


10 DIM AC15) 


reserves 16 spaces for list A (A(0), A(1), A(2), ..., A(15)). The instruction 


2G DIMENSION Y5¢1@515) 


reserves 176 spaces for matrix Y5 (10 + 1 rows * 15 +1 columns). Space may be reserved for more than 
one list and/or table with a single DIM statement by separating the entries with commas, as shown in 


the following example: 


3G DIM AC100)sB 620530) 2C4(25) 


A DIM (or DIMENSION) statement is not executed; therefore, it may appear on any line before the 
END statement. However, the best place to put it is at the beginning so that it is not forgotten. If 
we enter a table with a subscript greater than 10, without a DIM statement, BASIC gives an error 
message, telling us that we have a subscript error. This condition can be rectified by entering a DIM 


statement with a line number less than the line number of the END statement. 


A DIM (or DIMENSION) statement is normally used to reserve additional space, but in a long program 
that requires many small tables, it may be used to reserve less space for tables in order to have more 
space for the program. When in doubt, declare a larger dimension than you expect to use, but not one 
so large that there is no room for the program. For example, if we want a list of 15 numbers entered, 


we may write the following: 


10 DIM AC25) 

20 READ N 

30 FOR I=1 TON 

40 KEAD ACI) 

4) NEXT I 

62 DATA 15 

1% DATA 259359597911 32139175919923 5929531337541 343347 


Statements 20 and 60 could have been eliminated by writing 30 as FOR I = 1 TO 15 but the program as 
typed allows for the lengthening of the list by changing only statement 60, as long as the list does not 


exceed 25 and there is sufficient data. 
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We could enter a 3-by-5 table into a program by writing the following: 


10 FOR IT=1 TO 3 

2G FOR J=1 TO 5 

3A READ B2CIsJ) 

4D NEXT J 

50 NEXT I 

60 DATA 23339°553-93s2 
wi% DATA 43°7393394s9-2 
8 DATA 35°35539756 


i Again, we may enter a table with no DIM (or DIMENSION) statement: BASIC then handles all the 


entries from B(0.0) to B(10, 10). 


3.2 EXAMPLE 


Below are the statements and run of a problem which uses both a list and a table. The program com- 
putes the total sales of five salesmen, all of whom sell the same three products. The list, P, gives the 
price per item of the three products and the table, S, tells how many items of each product each man 
sold. Product 1 sells for $1.25 per item, product 2, for $4.30 per item, and product 3, for $2.50 per 
item; also, salesman 1 sold 40 items of the first product, 10 of the second, 35 of the third, and so on. 
The program reads in the price list in lines 40 through 80, using data in lines 910 through 930. The 
same program could be used again, modifying only line 900 if the prices change, and only lines 910 
through 930 to enter the sales in another month. This sample program does not need a DIM statement, 


because the computer automatically reserves enough space to allow all subscripts to run from 0 to 10. 


NOTE 


Since spaces are ignored, statements may be indented for 
visual identity of the various loops within the program. 


10 FOR JT=1 TO 3 

eo READ PCI) 

30 NEXT I 

40 FOR J=1 TO 3 

50 FOK J=!1 TO 5 

60 READ SC¢I»sJ) 

10 NEXT J 

80 NEXT I 

96 FOR J=1 TO 5 

100 LET S=@ 

110 FOR I=1 TO 3 

122 LET S=S+PCI)*SCIsJ) 
130 NEXT I 

149 PRINT “TOTAL SALES FOR SALESMAN" Js"S"S 
152 NEXT J 

969 DATA 12253443052 -50 
912 DATA 4029202372293 42 
926 DATA 1805163352158 

930 DATA 35247929316333 
999 END 


(continued on next page) 
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RtIN 
SALES 1 11306 28-OCT-69 


TOTAL SALES FCRK SALESMAN 1 &$ 186-506 

TOTAL SALES FCR SALESMAN 2 & 211-302 = 

TOTAL SALES FOR SALESMAN 3 §$ 131+65@0 

TOTAL SALES FOR SALESMAN 4 5S 166-506 

TOTAL SALES FOR SALESMAN 5S §$ 169-460 z 

TIME: O16 SECS. “a 
3.3 SUMMARY 

. 

Because the number of simple variable names is limited, BASIC allows a programmer to use lists and a 
tables to increase the number of problems that can be programmed easily and concisely. A single 
letter or a single letter followed by a single digit is used for the name of the list or table, and the © 


subscript that follows is enclosed in parentheses. A subscript may be a number or any legal expression. 


Lists and tables are called subscripted variables, and simple variables are called unsubscripted variables. 
Usually, you can use a subscripted variable anywhere that you use an unsubscripted variable. 

However, the variable mentioned immediately after FOR in the FOR statement and after NEXT in the 
NEXT statement must be an unsubscripted variable. The initial, terminal, and step values may be any 


legal expression. 


3.3.1 The DIM (or DIMENSION) Statement 


To enter a list or a table with a subscript greater than 10, a DIM statement, which has DIMENSION 


as an alternate form, is used to retain sufficent space, as in the following examples: 


en DIMENSION H(35) . ¥ 
35 DIM @8(5525) 


The first example enables us to enter list H with 36 items (H(0), H(1), ..., H(35)). The second reserves 


space for a table of 156 items (5 + 1 rows * 25 + 1 columns). 
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CHAPTER 4 
HOW TO RUN BASIC 


After learning how to write a BASIC program, we must learn how to gain access to BASIC via the 
Teletype so that we can type in a program and have the computer solve it. Steps required to 
communicate with the monitor must first be performed. These steps are fully explained in DECsys- 


tem-10 Users Handbook and the DECsystem-10 Operating System Commands manual. 


4.1 GAINING ACCESS TO BASIC 
After arriving at a terminal, follow three steps in order to enter BASIC 


1. Contact the DECsystem-10 computer, 
2. Complete the LOGIN procedure, and 
3. Access BASIC. 


4.1.1 Contacting the DECsystem-10 Computer 


Turn the terminal knob to LINE. Next, the terminal must be connected to the computer, either 
directly, by means of a cable that leads from the terminal to the computer, or indirectly, using the 


telephone system to link the terminal to the computer. 


For direct connections, the user is not required to do anything more to contact the system than to 


turn the knob to LINE. 


Since the procedure for obtaining a telephone system connection differs from one installation to 


another, the user should obtain the instructions from the operations staff at his particular installation. 


4.1.2 | Completing the LOGIN Procedure 
Three steps comprise the LOGIN procedure: 


1. Depress tC and type LOGIN. This signals the computer that you want to use it. 
After you type LOGIN, the monitor types your job number, the version of the monitor, 
and your terminal number. It then types a #, 


4-] Janyary 1974 


2. Type your project-programmer number. This number is assigned to you by the computer 
administration staff. Next, the monitor asks for your password by typing PASSWORD:. 


3. Type your password (also assigned by the computer administrations staff). It is not 
printed, 


If your password and project-programmer number are both valid, the monitor types the time, date and 


day of the week. Refer to Paragraph 4.7 for an example of the LOGIN procedure. 


4.1.3 Accessing BASIC 


When the DECsystem-10 is ready to accept commands, the monitor responds with a period. Type 
R BASIC to clear the user's core memory area and establish contact with the BASIC program. When 
BASIC is ready to accept commands it types READY, FOR HELP TYPE HELP. 


NOTE 


In some cases the system automatically executes 
the R BASIC command for the user. If READY, 
FOR HELP TYPE HELP appears immediately 
after the LOGIN procedure, this option has 
been enacted. 


You can either type HELP to get a list of commands that you can give to BASIC or type any command 


or statement that you wish. 


If you are going to create a new program, type in: 
NEW 
BASIC responds with the following: 


NEW FILE NAME-- 


Type in the name of your new program. If you want to work with a previously created program that 


you saved on a storage device, type in the following: 
OLD 


BASIC then asks for the name of the old program, as follows: 


OLD FILE NAME-- 
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aid 


Respond by typing in the name of your old file. If your old file is stored on a device other than the 


disk, you must type in the device name as in the following example: 


OLD FILE NAME--DTA6:SAMPLE 


BASIC retrieves the file named SAMPLE from DECtape 6 and replaces the current contents of user core 
with the file SAMPLE. The disk may be specified as the device on which the old program is stored, 
but this is not necessary because the disk is the device used when no device is specified. For example, 
the following statements are equivalent: 


OLD FILE NAME--DSK:TEST1 
OLD FILE NAME--TEST 1 


Device names are as follows: 


DSK the disk 

DTAO through DTA7 DECtapes number 0 through 7 on the first control unit 
DTBO through DTB7 DECtapes number 0 through 7 on the second control unit 
TTY your Teletype 

TTYO through TTY177 Teletypes number 0 through 177 

LPT the line printer 

MTAO through MTA7 . magnetic tapes number 0 through 7 

PTP the high-speed paper-tape punch 

PTR the high-speed paper-tape reader 

CDP the card punch | 

CDR the card reader 

SYS the system device where system programs are stored 

BAS or ***] the library where your installation stores BASIC programs 


for all BASIC users 


Not all installations have all of these devices; if you specify a device that does not exist or that is not 


available for your use, BASIC returns an error message. Also, while it is possible to store a file on 
the card punch, for example, the file cannot be retrieved from this device but must be retrieved from 
the card reader. If you specify for OLD a device that can only do output, an error message will be 


returned... 


Program names can be any combination of letters and digits up to and including six characters in length. 
In addition to specifying a program name, you may also specify an extension. The extension follows 
the name and is separated from it by a period. An extension is any combination.of letters and digits 

up to and including three characters in length. In previous chapters we have used program names such 
as LINEAR and SALES1. If you recall an old program from storage, you must use exactly the same 


name and extension you assigned to it when it was saved. 


T 
When the asterisk is used, it follows the filename and extension rather than preceding them as with 


the other devices. 
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“yee 


om You can also type the name of your file (and the device on which it is located) on the same line as 
the NEW or OLD command. In this case, BASIC will not ask for the name of the file. For example: 


NEW TEST 


id OLD DTAG:S4MPLE 


The NEW OR OLD -- request can be answered not only by NEW or OLD, but also by any other com- 
mand (refer to Chapter 9 for a description of the commands) or statement. If NEW OR OLD -- js 
answered by a NEW, OLD, or RENAME command, the current device, filename, and extension are 

established by the arguments specified with the command; if a device is not specified explicitly, the 
- disk is assumed; if a filename is specified without an extension, the extension BAS is assumed; it is 


illegal to specify an extension without specifying a filename. 


If NEW OR OLD -- is answered by anything other than a NEW, OLD, or RENAME command, the cur- 
rent device, filename, and extension are established as DSK, NONAME, and BAS, respectively. For 
example, the following sequence creates a disk file called NONAME.BAS. 

“-R BASIC 

NEW OR OLD -- S PRINT "TESTING" 


10 END 
SAVE 


A new current device, filename, and extension are established whenever a NEW, OLD, or RENAME 


command is given. 


To indicate that you wish to use the library BAS, you can type either of the following: 


filename.ext*** 


BAS: filename. ext 


When BASIC reads either of these forms, it looks for ''device'' BAS. If BASIC cannot find BAS, it 
assumes that you mean the disk area with the project-programmer number [5,1] where BAS normally 


resides. 


4.2 ENTERING THE PROGRAM 
e After you type in your filename (whether it is old or new), BASIC responds with the following: 


READY 


You can begin to type in your program. Make sure that each line begins with a line number contain- 


ing no more than five digits and containing no spaces or nondigit characters. Also, be sure to start 
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at the beginning of the Teletype line for each new line. Press the RETURN key upon completion of 


each line. 


If, in the process of typing a statement, you make a typing error and notice it before you terminate 


the line, you can correct it by pressing the RUBOUT key once for each character to be erased, going ® 
backward until the character in error is reached. Then continue typing, beginning with the character 
& 
in error. The following is an example of this correcting process: | 
19 PRNITNTINNINT 233 | - 


NOTE 


The RUBOUT key echoes as a backslash (\), followed by 
the deleted characters and a second backslash . 


4.3 EXECUTING THE PROGRAM 


After typing the complete program (do not forget to end with an END statement), type RUN or RUNNH, 
followed by the RETURN key. BASIC types the name of the program, the time of day, the current date 
(unless RUNNH is specified), and then it analyzes the program. If the program can be run, BASIC 


executes it and, via PRINT statements, types out any results that were requested. The typeout of re- 


sults does not guarantee that the program is correct (the results could be wrong), but it does indicate 
that no grammatical errors exist (e.g., missing line numbers, misspelled words, or illegal syntax). If 
errors of this type do exist, BASIC types a message (or several messages) to you. A list of these diag- 


nostic messages, with their meanings, is given in Appendix B. a 


4.4 CORRECTING THE PROGRAM 


If you receive an error message typeout informing you, for example, that line 60 is in error, the line 
can be corrected by typing in a new line 60 to replace the erroneous one. If the statement on line 110 


is to be eliminated from your program, it is accomplished by typing the following: 


11@ 
If you wish to insert a statement between lines 60 and 70, type a line number between 60 and 70 (e.g., . 
65), followéd by the statement. é 
¢ 


4.5 INTERRUPTING THE EXECUTION OF THE PROGRAM 


If the results being typed out seem to be incorrect and you want to stop the execution of your program 


or suppress its typeout, type fO (hold down CTRL key and at the same time type O) to suppress the 


typeout, or type {C twice to stop execution, as indicated in the following example: 
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’ 


*C Stops execution of your program, closes any files that 
+C are open in the program (refer to Chapter 10), and 


Returns to BASIC command level. 


If you typed fC, BASIC responds with the following: 


READY 
whereupon you can modify or add statements and/or type RUN or any other command. 


4.5.1 Returning to Monitor Level 


If you wish to leave BASIC and return to monitor level, type: 

MONITOR 
the monitor responds with a period and waits for you to type a monitor command. If you wish to 
return to BASIC, you must not type a command that will change what you have in core (i.e., the 
ASSIGN command does not change what is in core, but the DIRECT command does change core). 
To return to BASIC, type the following: .START or .REENTER or .CONT 

eSTART Or eKEFNTER or -CONT 
BASIC responds with 

KEADY 


and you can continue working in BASIC. 


4.6 LEAVING THE COMPUTER 


When you wish to leave the computer, type the BYE or GOODBYE command. 


No files created on the disk by BASIC commands or program statements are deleted by this 


procedure. 


The system monitor responds to the BYE or GOODBYE command by logging you off the 
system completely, unless your files stored on the disk take up so much room that you 
are over the logged-out quota set by the system administrator. In that case, the fol- 


lowing message is typed out (n and m are the appropriate integers): 


DSK LOGGED OUT QUOTA n EXCEEDED BY m BLOCKS 
CONFIRMS 


If you then type 
H,) 


instructions for deleting files at logout time are typed on your Teletype. 
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4.7 EXAMPLE OF BASIC RUN 


The following is a simple example of the use of BASIC under a timesharing monitor: 


tC 
eL.OGIN 
JOR 7 SS4@318A TTY34 


#27320 


PASSWORD 


9927 29-OCT-69 WED 


eR BASIC 


READYs FORK HELP TYPE HELP 


NEW 


NEW FILE NAME--SAMPLE 


GO TO MONITOR LEVEL 

REQUEST LOGIN 

MONITOR TYPES OUT YOUR ASSIGNED 
JOB NUMBER, THE CURRENT VERSION 
NUMBER OF THE MONITOR, AND YOUR 
TELETYPE NUMBER 


MONITOR REQUESTS YOUR PRO JECT- 
PROGRAMMER NUMBER; TYPE IT IN 


MONITOR REQUESTS YOUR PASSWORD; 
TYPE IT IN; IT WILL NOT ECHO BACK 


MONITOR TYPES OUT THE TIME OF 
DAY, THE CURRENT DATE, THE DAY OF 
THE WEEK, AND A PERIOD 


INSTRUCT MONITOR TO BRING BASIC 
INTO CORE AND START ITS EXECUTION 


BASIC INDICATES THAT IT IS READY 
TO RECEIVE A COMMAND OR STATE- 
MENT 


TY PE THE COMMAND NEW 


BASIC ASKS FOR NEW FILENAME 


READY BASIC IS NOW READY TO RECEIVE 
STATEMENTS 
12 FOR N=1 TO 7 TYPE IN STATEMENTS 
29 PRINT Ns SQRCN) 
3A NEXT N 
40 PRINT "DONE" 
34 END 
RUN RUN PROGRAM 
SAMPLE 11314 29-0CT-69 
i 1 
2 - 141421 
3 1673285 
4 2 
5 2223607 
6 244949 
(continued on next page) 
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linc 


ei 


7 2064575 
DONE 

TIME: 0-260 SECS. 

READY 


BYE 


JOB 7s» USER C27» 26) LOGGED OFF TTY34 @930 29-OCT-69 
SAVED ALL 1.FILE (5 DISK BLOCKS) 


RUNTIME @ MINs 61 SEC 


4.8 ERRORS AND DEBUGGING 


Occasionally, the first run of a new problem is free of errors and gives the correct answers, but, more 
commonly, errors are present and have to be corrected. Errors are of two types: errors of form (gram- 
matical errors) which prevent the running of the program, and logical errors in the program which cause 


the computer to produce wrong answers or no answers at all. 


Errors of form cause error messages fo be printed, and the various types of error messages are listed and 
explained in Appendix B. Logical errors are more difficult to uncover, particularly when the program 
gives answers which seem to be nearly correct. In either case, after the errors are discovered, they 
can be corrected by changing lines, by inserting new lines, or by deleting lines from the program. As 
indicated previously, a line is changed by typing it correctly with the same line number; a line is in- 
serted by typing it with a line number between those of two existing lines; and a line is deleted by 
typing its line number and pressing the RETURN key. Note that you can insert a line only if the orig- 
inal line numbers are not consecutive integers. For this reason, most programmers begin by using 


arbitrary line numbers that are multiples of five or ten. 


These corrections can be made either before or after a run. Since BASIC sorts out lines and arranges 
them in order, a line may be retyped out of sequence. Simply retype the offending line with its orig- 


inal line number. 


4.8.1 Example of Finding and Correcting Errors 


We can best illustrate the process of finding the errors (bugs) in a program and correcting (debugging) 
them by an example. Consider the problem of finding that value of X between 0 and 3 for which the 


sine of X is a maximum, and ask the machine to print out this value of X and the value of its sine. 
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Although we know that 1/2 is the correct value, we use the computer fo test successive values of X 

from 0 to 3, first using intervals of .1, then of .01, and finally of .001. Thus, we ask the computer 

to find the sine of 0, of .1, of .2, of .3..., of 2.8, of 2.9, and of 3, and to determine which of 
these 31 values is the largest. It does so by testing SIN(0) and SIN(.1) to see which is larger, and 
calling the larger of these two numbers M. It then picks the larger of M and SIN (.2) and calls it M. 
This number is checked against SIN (.3). Each time a larger value of M is found, the value of X is 
"remembered" in XO. When it finishes, M will have been assigned to the largest value. It then repeats 
the search, this time checking the 301 numbers 0, .01, .02, .03, ..., 2.98, 2.99, and 3, finding 

the sine of each, and checking to see which has the largest sine. At the end of each of these three 
searches, we want the computer to print three numbers: the value X0 which has the largest sine, the 


sine of that number, and the interval of search. 


Before going to the Teletype, we write a program such as the following: 


10 READ D 

20 LET X@=@ 

30 FOR X=4 TO 3 STEP D 
40 IF SINCX)<=M THEN 100 
38 LET X@=X 

60 LET M=SINCX@) 

70 PRINT X@sX»sD 

80 NEXT X@ 

98 GO TO 2Q 

100 DATA else01s-801 
110 END 


The following is a list of the entire sequence on the Teletype with explanatory comments on the right 


side: 
KFADYs FOK HELP TYPE HFLP 
NE: W 
NEW FILE NAME=-MAXSIN 
READY 
10 READ D 
26 LWR X@=@ 
30 rUK X20 TO 3S STeP DV 
40 IF SINE\N\E\CX)<=M THEN 100 Note the use of the RUBOUT key 
50 LET X@=X (echoes as a \) to erase a character 
60 LET Smeets in line 40 (which should have started 
70 PRINT, AC s% sD IF SIN (X), efc.) and in line 80. 
8 NEXT TNTNXQ 
a ee We discover that LET was mistyped 
aa ro Oa eee oo 20, and we correct it after 
110 END 
RUN 
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MAXS IN 11335 


20-OCT-69 
“ILLEGAL VARIABLE IN 74 
NEXT WITHOUT FOR IN 82 
FOR WITHOUT NEXT IN 3@ 
TIME: @-@5 SECS. 
READY 
1%) PRINT X@sXsD 
40 IF SIN ¢€X) <=™ THEN 8@ 
&O NEXT X 
RUN 
MAXSIN 11:36 2A-OCT-69 
Del Qel Oe 
Oe Q@e2 Qeol 
G3 tC tC 
READY 
20 
RUN 
MAXS IN 11337 20-OCT-69 


UNDEFINED LINE NUMBER 20 IN 90 
TIMES 0-93 SECS. 


96 GO TO 1@ 
RUN 
MAXS IN 11343 20-OCT-69 
Oel Ael Bel 
02 Aee Hel 
Qe3 +C tC 
READY 
710 
85 PRINT X@sMsD 
5 PRINT "X VALUE’ s"SIN'sRESOLUT ION" 
RUN 
MAXS IN 11344 26-0CT-69 
ILLEGAL VARIABLE IN 5 
TIME: @-@8 SECS. 
READ Y 
5 PRINT "X VALUE's"SIN's RESOLUTION" 
RUN 
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After receiving the first error mes- 
sage, we inspect line 70 and find 
that we used XO for a variable in- 
stead of XO. The next two error 
messages relate to lines 30 and 80 
having mixed variables. These are 
corrected by changing line 80. 


Both of these changes are made by 
retyping lines 70 and 80. In looking 
over the program, we also discover 
that the IF - THEN statement in 40 
directed the computer to a DATA 
statement and not to line 80 where 
it should go. This is obviously in- 
correct. We are having every value 
of X printed, so we direct the 
machine to cease operations by 
typing tC twice even while it is 
running. We notice that SIN(0) is 
compared with M on the first time 
through the loop, but we had assign- 
ed a value to X0 but not to M. 
However, we recall that all variables 
are set equal to zero before a RUN; 
therefore, line 20 is unnecessary. 


Line 90, of course, sent us back to 
line 20 to repeat the operation and 
not back to line 10 to pick up a 
new value for D. We retype line 90 
and then type RUN again. 


We are about to print out the same 
table as before. Each time that it 
goes through the loop, it is printing 
out X0, the current value of X, and 
the interval size. 


We rectify this condition by moving 
the PRINT statement outside the loop. 
Typing 70 deletes that line, and 

line 85 is outside of the loop. We 
also realize that we want M printed, 
not X. We also decide to put in 
headings for the columns by a. 

PRINT statement. 


There is an error in our PRINT state- 
ment: no left quotation mark for the 
third item. 


(continued on next page) 
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MAXS IN 11347 26-OCT-69 
X VALUE SINE RESOLUTION 
1-60 Q-999574 Bo} 
1-57 l. QeO} 
1.57099 1. 0-601 
OUT OF DATA IN 16 
TIMES @-96 SECS. 
READY 
LIST 


MAXSIN 11348 20-OCT-69 


A PRINT statement could have been inserted to check on the machine computations. For example, if 


PRINT "*X VALUE" s"SINE's "RESOLUTION" 
READ D 

FOR X=@6 TO 3 STEP D 
IF SINCX)<=M THEN 88 
LET X@=X 

LET M=SINCX) 

NEXT X 

PRINT X@sM»sD 

GO TO 10 

DATA els eBls-001 
END 


Retype line 5, with all of the re- 
quired quotation marks. 


These are the desired results. Of 
the 31 numbers (0, .1, .2, .3,..., 
2.8, 2.9, 3), it is 1.6 which has 
the largest sine, namely .999574; 
this is true for finer subdivisions. 


Having changed so many parts of the 
program, we ask for a list of the cor- 
rected program. 


The program. is saved for later use. 


M were checked, we could have inserted 65 PRINT M, and seen the values. 
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ice we 


CHAPTER 5 
FUNCTIONS AND SUBROUTINES 


5.1 FUNCTIONS 


Occasionally, you may want to calculate a function, for example, the square of a number. Instead 
of writing a small program to calculate this function, BASIC provides functions as part of the language, 
some of which are described in Chapter 1. The remaining functions are described here, in Chapter 7, 


and in Chapters 8 and 10. 


The desired function is called by a three-letter name. The value to be used is expressed explicitly or 
implicitly in parentheses and follows the function name. The expression enclosed in parentheses is 
the argument of the function, and it is evaluated and used as indicated by the function name. For 


example: 
15 LET B=SOR(C4+X13) 


indicates that the expression (4 + X 13) is to be evaluated and then the square root taken. 


5.1.1 The Integer Function (INT) 


The INT function appears in algebraic notation as [X] and returns the greatest integer of X that is less 
than or equal to X. For example: © : 
INT (2.35) =2 


INT (-2.35) = -3 
INT (12) = 12 


One use of this function is to round numbers fo the nearest integer by asking for INT (X + .5). For 


example: 


INT (2.9 + .5) =INT (3.4) =3 


rounds 2.9 to 3. Another use is to round to any specific number of decimal places. For example: 


INT (X * 10 t2 + .5)/10 t2 
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rounds X correct to two decimal places and 


INT (X *10 tD+ .5)/10 t DB 


rounds X correct to D decimal places. 


5.1.2 The Random Number Generating Function (RND) 


The RND function produces random numbers between 0 and 1. This function is used to simulate events 


that happen in a somewhat random way. RND does not need an argument. 


If we want the first 20 random numbers, we can write the program shown below and get 20 six-digit 


& 


decimals. 
12 FOR L=1 TO 20 
2a PRINT RNDs>» 
38 NEXT L 
40 END 
RUN 
RANDOM 13:24 20-OCT-69 
0 «406533 0-88445 @-681969 0-93946e 0253358 
0-863799 4 -880238 0-638311 0-602898 0-990632 
0-863799 0.897931 0 -628126 0@-613262 0303217 
5.00548E-2 6.393226 0-680219 Y 632246 0 +668218 
NOTE | 
e e = 
This is a sample run of random numbers. The format of the 
PRINT statement is discussed in Chapter 6. 
RUN 
RANDOM 13325 20-OCT-69 
9-406533 0-88445 0-681969 9.939462 G e25335& 
0.863799 


A second RUN gives exactly the same random numbers as the first RUN; this is done to facilitate the 


debugging of programs. If we want 20 random one-digit integers, we could change line 20 to read as | s 
follows: 
20 PRINT INT €1@*RND)> # 
RUN 


5=-2 


a 


We would obtain the following: 


To vary the type of random numbers (20 random numbers ranging from 1 to 9, inclusive), change line 


20 as follows: 


To obtain random numbers which are integers from 5 to 24, inclusive, change line 20 to the following: 


If random numbers are to be chosen from the A integers of which B is the smallest, call for 


RANDOM 13326 20-OCT-69 
4 8 6 

8 8 6 

S & 6 

4) 3 6 


20 PRINT INTC9*RND +13 
RUN 
RANDOM 13328 28-OCT-69 


4 &6& 7 9 3 8 &®& 6 6 9 6 6 


20 PRINT INTC2G*RND +5)3 
RUN 
RANDOM 13330 26-0CT-69 


13 22 18 23 19 22 22 17 17 24 


12 18 #17 «#18 


INT (A*RND-+8). 


5.1.3 The RANDOMIZE Statement 


As noted when we ran the first program of this chapter twice, we got the same numbers in the same 


order each time. However, we get a different set with the RANDOMIZE statement, as in the follow- 


ing program: 


=. RANDOMIZE 

10 FOR L=1 TO 29 

20 PRINT INTC1@0*#RND)5 

30 NEXT L 

46 END 

RUN 

RNDNOS 13:32 20-OCT-69 


1 9 4 2 1 1 6 6 3 8 4 9 


RUN 
RNDNOS 13333 20-OCT-69 


1 1 4 6 6 6 @ 5 3 8 4 @ 


Oo on o 


AW oO NM 


11 


RANDOMIZE (RANDOM) resets the numbers in a random way. For example, if this is the first instruc- 
tion in a program using random numbers, then repeated RUNs of the program produce different results. 
If the instruction is absent, then the official list of random numbers is obtained in the usual order. It 
is suggested that a simulated model should be debugged without this instruction so that one always ob- 
tains the same random numbers in test runs. After the program is debugged, and before starting produc- 


tion runs, you insert the following: 


1 RANDOM 


5.1.4 The Sign Function SGN) 


The SGN function is one which assigns the value 1 to any positive number, 0 fo zero, and -1 to any 
negative number. Thus, SGN (7.23) =1, SGN (0) =0, and SGN (-.2387) =-1. For example, the 


following statement: 
4) ON SGNC(X)4+2 GO TO 16052003;300 


transfers to 100 if X <0, to 200 if X =0, and to 300 if X >0. 


5.1.5 The Time Function (TIM) 


The TIM function returns the elapsed execution time, in seconds, of a program from the beginning of 
execution. This time does not include compile and load time when a single program is run. However, 
when programs are chained together (refer to 6.6 for a description of chaining), TIM returns the total 
of the elapsed execution time since the start of execution of the first program plus the compile, load 
and execution times of each subsequent program. The TIM function does not accept an argument. 


For example: 


10 READ As Bs C 
115 IF TIM = 16 THEN 15@ 
ISA END 


5.1.6 The Define User Function (DEF) and Function End Statement (FNEND) 


In addition to the functions BASIC provides, you may define up to 26 functions of your own with the 
DEF statement. The name of the defined function must be three letters, the first two of which are FN, 


e.g., FNA, FNB, ..., FNZ. Each DEF statement introduces a single function. For example, if you 
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~X2 
repeatedly use the function e ‘ +5, introduce the function by the following: 


30 DEF FNECX)=EXP(-X12)45 
and call for various values of the function by FNE (.1), FNE (3.45), FNE (A+2), etc. This statement 


saves a great deal of time when you need values of the function for a number of different values of the 


variable, 


The DEF statement may occur anywhere in the program, and the expression to the right of the equal 
sign may be any formula that fits on one line. It may include any combination of other functions, 
such as those defined by different DEF statements; it also can involve other variables besides those de- 


noting the argument of the function. 


As in the following example each defined function may have zero, one, two, or more numeric 


variables; string variables (refer to Chapter 8) are not allowed: 


10 DEF FNBCXsY)=3*X*Y-Yt3 
105 DEF FNCCXsYsZsW)=FNBCXsY)/FNB(ZsW) 
538 DEF FNA=3-1416#Rt2 


5-4a 


43 


- 


In the definition of FNA, the current value of R is used when FNA occurs. Similarly, if FNR is de- 


fined by the following: 


4) DEF FNRCX)=SQR(2+LOGCX)-EXPCY*Z) 3 OX4SINC2*Z))) 
you can ask for FNR(2.7), and give new values to Y and Z before the next use of FNR. 


The method of having multiple line DEFs is illustrated by the "max" function shown below. Using this 
method, the possibility of using IF ... THEN as part of the definition is a great help as shown in the 


following example: 


10 DEF FNMCXsY) 

24) LET FNM=X 

38 IF Y¥<=X THEN 56 
42 LET FNM=Y 

14) FNEND 


The absence of the equals sign (=) in line 10 indicates that this is a multiple line DEF. In line 50, 


FNEND terminates the definition. The expression FNM, without an argument, serves as a temporary 


variable for the computation of the function value. The following example defines N-factorial: 


10 DEF FNFCN) 

2a LET FNF=1 

30 FOR K=1 TON 
40 LET FNF=K*FNF 
38 NEXT K 

68 FNEND 


Any variable which is not an argument of FN in a DEF loop has its current value in the program. 
Multiple line DEFs may not be nested and there must not be a transfer from inside the DEF to outside 
its range, or vice versa. GOSUB and RETURN statements (refer to Section 5.2) are not allowed in 


multiple line DEFs. 


9.2 SUBROUTINES 


When you have a procedure that is to be followed in several places in your program, the procedure 


may be written as a subroutine. A subroutine is a self-contained program which is incorporated into 


_ the main program at specified points. A subroutine differs from other control techniques in that the 


computer remembers where it was before it entered the subroutine, and it returns to the appropriate 


place in the main program after executing the subroutine. 


5.2.1 GOSUB and RETURN Statements 


Two new statements, GOSUB and RETURN, are required with subroutines. The subroutine is entered 


with a GOSUB statement which can appear at any place in the main program except within a multiple 
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line DEF. The GOSUB statement is similar to a GO TO statement; however, with a GOSUB statement, —_ 


the computer remembers where it was prior to the transfer. Following is an example of the GOSUB 


statement: 


9B GOSUB 219 adi 


where 210 is the line number of the first statement in the subroutine. The last line in the subroutine is bd 


a RETURN statement which directs the computer to the statement following the GOSUB from which it 


transferred. For example: ¥ 


359 RETURN 


returns to the next highest line number greater than the GOSUB call. 


Subroutines may appear anywhere in the main program except within the range of a multiple line DEF. 
Care should be taken to make certain that the computer enters a subroutine only through a GOSUB 


statement and exits via a RETURN statement. 


5.2.2 Example 


A program for determining the greatest common divisor (GCD) of three integers, using the Euclidean 


Algorithm, illustrates the use of a subroutine. The first two numbers are selected in lines 30 and 40, 
and their GCD is determined in the subroutine, lines 200 through 310. The GCD just found is called 
X in line 60; the third number is called Y, in line 70; and the subroutine is entered from. line 80 to 
find the GCD of these two numbers. This number is, of course, the greatest common divisor of the 


three given numbers and is printed out with them jn line 90. 


A GOSUB inside a subroutine to perform another subroutine is called a nested GOSUB. It is necessary 


to exit from a subroutine only with a RETURN statement. You may have several RETURNs in the sub- 


routine, as long as exactly one of them will be used. 


10 PRINT “A's “B's “C's **GCD* 

20 READ As Bs C 

30 LET X=A 

40 LET Y=B 

50 GOSUB 206 x 
68 LET X=G Sa 
10 LET Y=C 

80 GOSUB 200 * 
90 PRINT AsBsC 2G | a 
100 GO TO 29a 

1190 DATA 602905120 

120 DATA 38456264872 398765 

130 DATA 32238472 

200 LET Q=INTCX/Y) 


(continued on next page) 
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GCD3NO 
A 
66 


38456 
32 


END 


LET R=X-@*Y 


IF R=@ THEN 390 


LET X=Y 
LET Y=R 


GO TO 280 


LET G=Y 
RETURN 


13:36 


92 
64872 
3&4 


OUT OF DATA IN 2@ 
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CHAPTER 6 
MORE SOPHISTICATED TECHNIQUES 


The preceding chapters have covered the essential elements of BASIC. At this point, you are ina 
position to write BASIC programs and to input these programs to the computer via your Teletype. The 
commands and techniques discussed so far are sufficient for most programs. This chapter and remaining 
ones are for a programmer who wishes to perform more intricate manipulations and to express programs 


in a more sophisticated manner. 


6.1 MORE ABOUT THE PRINT STATEMENT 


The PRINT statement permits a greater flexibility for the more advanced programmer who wishes to 
have a different format for his output. BASIC normally outputs items from PRINT statements in the forms 


described in this chapter*. Numeric items are printed in the format: 


Snn...nb 
ok a 
a one space 
numeric value 


sign: space if positive; - if negative 
_ String items (refer to Chapter 8) are printed exactly as they appear but without the enclosing quotes. 


The Teletype line is divided into zones of 14 spaces each. A comma in a PRINT statement is a signal 
to the Teletype fo move to the next print zone on the current line or, if necessary, to the beginning of 
the first print zone of the next line. A semicolon in a PRINT statement causes no motion of the 
Teletype. <PA> (page) in a PRINT statement moves the Teletype to the beginning of the first print 
zone of the first line on the next page of output. Commas, semicolons, and <PA> delimiters can 
appear in PRINT statements without intervening data items. Each delimiter causes Teletype movement 


as previously described. For example, PRINT A, ,B causes the value of A to be printed in the first zone, 


*This chapter describes the noquote mode of output. The user can explicitly change the mode to quote 
mode by using a QUOTE statement. Refer to Chapter 10 for the description of quote and noquote 
modes and their associated statements. 
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the Teletype to be moved to the third zone, and the value of B to be printed in the third zone. If two 


items in a PRINT statement are clearly distinct, the separating commas, semicolons, or <PA> delimiters 


can be omitted and the items are treated as though they were separated by one semicolon. 


When you type in the following program: 


16 FOR I=1 TO 15 
20 PRINT I 

36 NEXT I 

42 END 


the Teletype prints 1 at the beginning of a line, 2 at the beginning of the next line, and, finally, 15 


on the fifteenth line. But, by changing line 20 to read as follows: 


26 PRINT I> 


the numbers are printed in the zones, reading as follows: 


1 e 3 4 5 
6 7 & 9 1@ 
11! 12 13 ] 


4 1S 
If you want the numbers printed in this fashion, but compressed, change line 20 by replacing the 


comma with a semicolon as in the following example: 


20 PRINT 13 


The following results are printed: 


12 3 4 5 6 7 8 9 1@ 11 #12 13 14 #25 


The end of a PRINT statement signals a new line, unless a comma or semicolon is the last symbol. Thus, 


the following instruction: 


38 PRINT Xs Y 


prints two numbers and then returns to the next line, while the instruction: 


38 PRINT Xs Y=s 


prints these two values and does not return. The next number to be printed appears in the third zone, 


after the values of X and Y in the first two zones. 


Since the end of a PRINT statement signals a new line, 


250 PRINT 
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causes the Teletype to advance the paper one line, to put a blank line for vertical spacing of your 


results, or to complete a partially filled line. 


58 FOR M=1 TON 
110 FOR J=6 TO M 
120 PRINT BCMsJ)5 
132 NEXT J 

148 PRINT 

15@ NEXT M 


This program prints B(1,0) and next to it B(1,1). Without line 140, the Teletype would go on printing 
B(2 ,0), B(2,1), and B(2,2) on the same line, and then B(3,0), B(3,1), etc. After the Teletype prints 
the B(1,1) value corresponding to M = 1, line 140 directs it to start a new line; after printing the value 
of B(2,2) corresponding to M = 2, line 140 directs it to start another new line, etc. 


The following instructions: 


58 PRINT “TIME-""s "SHAR"’3 ‘ING''S 
31 PRINT " ONS " THE “S$ “PDP-10" 


cause the printing of the following: 


TIME-SHARING ON THE PDP-1@0 
(The items enclosed in quotes in statements 50 and 51 are strings.) 


The following instructions: 


16 N=5 
20 PRINT "END OF PAGE" N <PA> 
30 PRINT “ITEM '’ss"NOo ORDERED ss" TOTAL PRICE” 


cause the printing of 


END OF PAGE 5 


followed by a form-feed to position the Teletype paper at the top of a new page, where the following 
is printed: 


ITEM NOQ-e ORDERED TOTAL PRICE 


Formatting of output can be controlled even further by means of the TAB function, in the form TAB(n), 


where n is the desired print position. TAB can contain any numeric formula as its argument. The value 
of the numeric formula is computed and then truncated to an integer. This integer is treated modulo 
the current output right margin. Setting the output right margin is described in Section 6.7. For 
example, if the output right margin is 72, which is the default margin, a value in the range 0 through 


71 is obtained. The first print position on the line is column 0. Thus, TAB(17) causes the Teletype to 
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move to column 17 (unless it has already passed this position, in which case the TAB is ignored). For 


example, inserting the following line in a loop 


35 PRINT X3 TABC12)3 Ys TABCE7)3Z 


causes the X values to start in column 0, the Y values in column 12, and the Z values in column 27.. 


The following rules are used to interpret the printed results: 
a. Ifa number is an integer, the decimal point is not printed. If the integer contains 
more than eight digits, it is printed in the format as follows. 
sn .nnnnnEsp 


| | E (Exponent) followed by the sign of the exponent, 
followed by p (power of 10) 


next five digits 
first digit 
sign: space if positive; - if negative 
For example, 32,437,580,259 is written as 3.24376E+10. 
b. For any decimal number, no more than six significant digits are printed. 


c. For anumber less than 0.1, the E notation is used, unless the entire significant 
part of the number can be printed as a 6-digit decimal number. Thus, 0.03456 
indicates that the number is exactly .0345600000, while 3.45600E-2 indicates 
that the number has been rounded to .0345600. 


d. Trailing zeros after the decimal point are not printed. 


The following program, in which powers of 2 are printed out, demonstrates how numbers are printed. 


10 FOR N=-5 TO 3@ 

20 PRINT 2@tN3 

30 NEXT N 

4G END 

POWERS 11:54 20-OCT-69 


@e93125 O-9625 8-125 G-25 0-5 1 2 4 8 16 32 64 128 256 
91@ 1024 2048 4996 6192 16384 327668 65536 131072 262144 
924288 1048576 2097152 4194394 8386606 16777216 33554432 
671908864 14¢324218E+8 2-68435E+8 SeB6KTIE+G 1-973 74E+9 


6.2 INPUT STATEMENT 


At times, during the running of a program, it is desirable to have data entered. This is particularly 
true when one person writes the program and saves if on the storage device as a library program (refer 
to SAVE command, Chapter 9), and other persons use the program and supply their own data. Data 
may be entered by an INPUT statement, which acts as a READ but accepts numbers of alphanumeric 
data from the Teletype keyboard. For example, to supply values for X and Y into a program, type the 


following: 
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we 


4G INPUT XsY 


prior to the first statement which uses either of these numbers. When BASIC encounters this statement, 
it types a question mark. The user types two numbers, separated by a comma, and presses the RETURN 


key, and BASIC continues the program. No number can be longer than 8 digits. 


Frequently, an INPUT statement is combined with a PRINT statement to make sure that the user knows 


what the question mark is asking for. You might type in the following statement: 


26 PRINT "YOUR VALUES OF XsYs AND Z ARES 
30 INPUT XsYoZ 


and BASIC types out the following: 

YOUR VALUE OF XsYs AND Z ARE? 
Without the semicolon at the end of line 20, the question mark would have been printed on the next 
line. Data entered via an INPUT statement is not saved with the program. Therefore, INPUT should 


be used only when small amounts of data are to be entered, or when necessary during the running of 


the program. 


6.3 STOP STATEMENT 


STOP is equivalent to GO TO xxxxx, where xxxxx is the line number of the END statement in the pro- 


gram. For example, the following two program portions are exactly equivalent: 


258 GO TO 999 28 STOP 
34G GO TO 999 349 STOP 
999 END 999 END 


6.4 REMARKS STATEMENT (REM) 


REM provides a means for inserting explanatory remarks in the program. BASIC completely ignores the 
remainder of that line, allowing you to follow the REM with directions for using the program, with 
identifications of the parts of a long program, or with any other information. Although what follows 


REM is ignored, its line number may be used in a GO TO or IF-THEN statement as in the following: 


100 REM INSERT IN LINES 900-998- THE FIRST 

11@ REM NUMBER IS N» THE NUMBER OF POINTSe THEN 
126 REM THE DATA POINTS THEMSELVES ARE ENTEREDs BY 
208 REM THIS IS A SUBROUTINE FOR SOLVING EQUATIONS 
388 RETURN 

328 GOSUB 2862 


A second method for adding comments fo a program consists of placing an apostrophe (') at the end of 
the line, and following it by a remark. Everything following the apostrophe is ignored. This method 
cannot be used in an image statement. Image statements are described in Chapter 11. Apostrophes 


within string constants are not treated as remark characters. 


6.5 RESTORE STATEMENT 


The RESTORE statement permits READing the data in the DATA statements of a program more than once. 
Whenever RESTORE is encountered in a program, BASIC restores the data block pointer to the first une 
ber. A subsequent READ statement then starts reading the data all over again. However, if the desired 
data is preceded by code numbers or parameters, superfluous READ statements should be used to pass 
over these numbers. As an example, the following program portion reads the data, restores the data 
block to its original state, and reads the data again. Note the use of line 570 (READ X) to pass over 


the value of N, which is already known. 


10@ READ N 

114 FOR I=1 TON 
129 READ X 

200 NEXT I 

560 RESTORE 

578 READ X 

589 FOR I=1 TON 
390 READ X 

108 DATA ecccce 
71@ DATA cecce 


6.6 CHAIN STATEMENT 


The CHAIN statement provides a means for one program to call another program so that programs can 
be written separately and executed together in a chain. The CHAIN statement has one of the forms: 


CHAIN [alphabetic string] 
or CHAIN [alphabetic string] , [numeric formula] 


The alphabetic string is either: a) the name of the program being chained to, in the form 
device:filename.ext (optionally enclosed in quotes), or b) a string variable* that has as its value the 


name of the program being chained to, in the form device:filename.ext. The device and the extension 


*A string variable is a variable that is used to store an alphabetic string. A string variable is composed 
of a letter and a dollar sign ($) or a letter, a number, and a dollar sign ($), e.g., A$ or B2$. String 
variables are described in Chapter 8. 
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can be omitted, but the filename must be present. If the device is omitted, DSK: is assumed; if the 


extension is omitted, .BAS is assumed. 


The numeric formula specifies a line number in the program being chained to; its value is truncated to 


aad an integer. 
* A few examples of the CHAIN statement are: 
a: CHAIN A$ 
= : CHAIN B2$, N*EXP(W) 
. ; CHAIN PTR:MAIN, 50 
, When BASIC encounters a CHAIN statement in a program, it stops execution of that program, retrieves 
| the program named in the CHAIN statement from the specified device, compiles the chained program, 


and begins execution either at the line number specified in the CHAIN statement or at the beginning 
of the program if no line number was specified. Only the heading of the first program in the chain is 
printed, and the TIME: message is printed only after the last program in the chain has been executed. 
Error messages for the programs in the chain, excluding the first program, have the name of the program 


appended. For example: 


OVERFLOW IN 1190 IN TEST4eBAK 


indicates that an overflow error occurred in line 1100 in the chained program TEST4.BAK. Programs 


that run individually, or the first program in a chain will not have the program name appended. 


od 
The following is an example of program chaining. 
LIST 
PROGS3 12:05 25-JAN-71 
19 PRINT 19 
11 STOP 
20 PRINT 26 
21 END 
READY 
SAVE 
a NEW 
cs NEW FILENAME -- PROG2 
READY 
19 INPUT N 
* 20 CHAIN PROG3» N 
39 END 
RUNNH 
2710 
10 


TIME: @-82 SECS 


6.7 MARGIN STATEMENT 


Normally, the right margin for output to the Teletype is 72 characters. The MARGIN statement allows 
the user to specify a right margin of 1 to 132 characters. This margin becomes effective on the first 
new line of output after the MARGIN statement, and remains in effect until the next time the margin 
is set by a MARGIN statement or until the end of the program's execution, whichever is sooner. At 


the end of program execution, the output margin is reset to 72 characters. 


The form of the margin statement is: 


MARGIN [numeric formula] 


The numeric formula is a numeric constant, variable, or expression that specifies the right margin; it 
is truncated to an integer before the margin is set. Some examples of the MARGIN statement are: 


MARGIN 75 
MARGIN = 132*N 


The right margin for input from the Teletype is not affected by MARGIN statements; it is always 142 


characters. Lines of input that are longer than 142 characters will result in error messages. 


The monitor, as well as BASIC, considers the normal Teletype output margin to be 72 characters. 
Therefore, when a margin greater than 72 characters is needed, the monitor command SET TTY WIDTH 
must be used in addition to the BASIC MARGIN statement. Otherwise, the monitor will output a lead- 
ing carriage return-line feed if an attempt is made to output a seventy-third character on a line. 
Before the program is run, the user must issue the command: 

MONT TOR 
to BASIC and then type: 

SET TTY WIDTH 132 

REENTER 
to reenter BASIC. The monitor will not output its carriage return-line feed until after the 132nd 
character on a line; consequently, BASIC can control the margin as the MARGIN statements specify 
without interference from the monitor. The SET TTY WIDTH monitor command is implemented in 5.02 


and later monitors. 


6.8 PAGE STATEMENT 


Normally, output to the Teletype is not divided into pages. The PAGE statement allows the user to 
set a page size of any positive number of lines. This page size remains in effect until the page size is 
set again by a PAGE statement, or until the Teletype is set back into nopage mode by a NOPAGE 
statement (described in Section 6.9), or until the end of the program's execution. At the end of pro- 
gram execution, the Teletype is reset to nopage mode. 
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The form of the PAGE statement is: 
PAGE [numeric formula] 


The numeric formula specifies the page size; it is truncated to an integer before the page size is set. 


When a PAGE statement is executed, BASIC ends the current output line (if necessary) , outputs a form- 
feed to position the Teletype paper at the top of the next page, and starts counting lines beginning 
with the next line of output. As soon as a new page is necessary, a form-feed is output. Whenever a 


PRINT statement containing <PA> is executed, the line count for the Teletype page is set back to zero. 


6.9 NOPAGE STATEMENT 


The NOPAGE statement sets the Teletype back fo nopage mode (i.e., the output to the Teletype is no 
longer automatically divided into pages). The NOPAGE statement need only be used to change the 
mode back from page mode (set by a PAGE statement) because the default is nopage mode for all 


Teletype output. The form of the statement is: 


NO PAGE 


The NOPAGE statement has no effect on the execution of <PA> delimiters in PRINT statements; they 


are executed as usual. 
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CHAPTER 7 


VECTORS AND MATRICES 


Operations on lists and tables occur frequently; therefore, a special set of 13 instructions for matrix 


computations, all of which are identified by the starting word MAT, is used. These instructions are 


not necessary and can be replaced by combinations of other BASIC instructions, but use of the MAT in- 


structions results in shorter programs that run much faster . 


The MAT instructions are as follows: 


MAT READ a, b, c 


MAT c =ZER 
MAT c = CON 
MAT c = IDN 


MAT PRINT a,b, ¢ 


MAT INPUT v 
MAT b =a 
MAT ¢ =a +b | 
MATc =a-b 
MAT c =a *b 
MAT c = TRN(@) 
MAT c = (k) *a 
MAT ¢ = INV (a) 


Read the three matrices, their dimensions 
having been previously specified. 


Fill out c with zeros. 
Fill out c with ones. 
Set up c as an identity matrix. 


Print the three matrices. (Semicolons can 
be used immediately following any matrix 
which you wish to have printed in a close- 
ly packed format.) | 


Call for the input of a vector. 

Set the matrix b equal to the matrix a. 
Add the two matrices a and b. 

Subtract the matrix b from the matrix a. 
Multiply the matrix a by the matrix b. 
Transpose the matrix a. 


Multiply the matrix a by the number k. The 
number, which must be in a parentheses, may 
also be given by a formula. 


Invert the matrix a. 


7.1 MAT INSTRUCTION CONVENTIONS 


The following convention has been adopted for MAT instructions: while every vector has a component 
0, and every matrix has a row 0 and a column 0, the MAT instructions ignore these. Thus, if we have 
a matrix of dimension M-by-N in a MAT instruction, the rows are numbered 1, 2, ..., M, and the 


columns 1, 2, ..., N. 


If a numeric array is referenced in a MAT statement other than MAT INPUT, BASIC sets up the array 
as a matrix with two dimensions unless the user has specifically declared in a DIM (or DIMENSION) 


statement that the array is a vector. 


The DIM statement may simply indicate what the maximum dimension is to be. Thus, if we write the 


following: 


DIM MC20535) 


M may have up to 20 rows and up to 35 columns. This statement is written to reserve enough space for 
the matrix; consequently, the only concern at this point is that the dimensions declared are large 
enough to accomodate the matrix. However, in the absence of DIM (or DIMENSION) statements, all 
vectors may have up to 10 components and matrices up to 10 rows and 10 columns. This is to say that 
in the absence of DIM (or DIMENSION) statements, this much space is automatically reserved for vec- 
tors and matrices on their appearance in the program. The actual dimension of a matrix may be deter- 


mined either when it is first set up (by a DIM statement) or when it is computed. Thus the following 


10 DIM MC2657) 


38 MAT READ M 


reads a 20-by=-7 matrix for M, while the following: 


14) MAT READ MC173s3@) 


reads a 17-by-30 matrix for M, provided sufficient space has been saved for it by writing 


10 DIMENSTGN ™C20535) 


7.2 MAT C =ZER, MAT C =CON, MAT C =IDN 
The following three instructions: 
MAT M = ZER (sets up matrix M with all components equal fo zero) 


MAT M = CON (sats up matrix M with all components equal to one) 
MAT M = IDN (sets up matrix M as an identity matrix) 
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act like MAT READ as far as the dimension of the resulting matrix is concerned. For example, 


MAT M = CON (7,3) 


sets up a 7-by-3 matrix with 1 in every component, while in the following: 
MAT M = CON 
sets up a matrix, with ones in every component, and a 10-by-10 dimension (unless previously given 


other dimensions). It should be noted, however, that these instructions have no effect on row and 


column zero. Thus, the following instructions: 


10 DIM MC2857) 

rAG) MAT READ MC753) 
35 MAT M=CON 

78 MAT M=ZERC1557) 
96 MAT M=ZERC1651@) 


first read in a 7-by-3 matrix for M. Then they set up a 7-by-3 matrix of all 1s for M (the actual 
dimension having been set up as 7-by-3 in line 20). Next they set up Masa 15-by-7 all-zero matrix. 
(Note that although this is larger than the previous M, it is within the limits set in 10.) An error mes- 
sage results because of line 90. The limit set in line 10 is (20 +1) x (7 + 1) = 168 components, and in 
90 we are calling for (16 + 1) x (10 + 1) = 187 components. Thus, although the zero rows and columns 


are ignored in MAT instructions, they play a role in determining dimension limits. For example, 


90 MAT M=ZERC2555) 
would not yield an error message. 


Perhaps it should be noted that an instruction such as MAT READ M(2,2) which sets up a matrix and 
which, as previously mentioned, ignores the zero row and column, does, however, affect the zero row 
and column. The redimensioning which may be implicit in an instruction causes the relocation of some 
numbers; therefore, they may not appear subsequently in the same place. Thus, even if we have first 
LET M(1,0) = M(2,0) =1, and then MAT READ M(2,2), the values of M(1,0) and M(2,0) now are 0. 


Thus when using MAT instructions, it is best not to use row and column zero. 


7.3 MAT PRINTA, B, C 


The following instruction: 


MAT PRINT A, B; C 


causes the three matrices to be printed with A and C in the normal format (i.e., with five components 


to a line and each new row starting on a new line) and B closely packed. 


Vectors may be used in place of matrices, as long as the above rules are observed. Since a vector like 
V(I) is treated as a column vector by BASIC, a row vector has to be introduced as a matrix that has 


only one row, namely row 1. Thus, 
DIM X(7), Y(0,5) 


introduces a 7-component column vector and a 5=component row vector. 


If V is a vector, then 
MAT PRINT V 

prints the vector V as a column vector. 
MAT PRINT V, 

prints V as a row vector, five numbers to the line, while 
MAT PRINT V; 


prints V as a row vector, closely packed. 


7.4 MATINPUT V AND THE NUM FUNCTION 
The following instruction: 
MAT INPUT V 


calls for the input of a vector. The number of components in the vector need not be specified. Nor- 
mally, the input is limited by its having to be typed on one line. However, by ending the line of 
input with an ampersand (&) before the carriage return, the machine asks for more input on the next 
line. There must be at least one data item preceding the ampersand on the line or an error message 
will be issued. Note that, although the number of components need not be specified, if we wish to 
input more than 10 numbers, we must save sufficient space with a DIM statement. After the input, 
the function NUM equals the number of components, and V(1), v(2), ..«, V(NUM) become the num- 


bers that are input, allowing variable length input. For example, 


S LET S=0 

10 MAT INPUT V 

20 LET N=NUM 

30) IF N=@ THEN 99 
40 FOR I=! TON 
4S LET S=S+vcI) 
38 NEXT I 

60 PRINT S/N 

70 GO TO 5 

99 END 


aR 


allows the user to type in sets of numbers, which are averaged. The program takes advantage of the 
fact that zero numbers may be input, and it uses this as a signal to stop. Thus, the user can stop by 
simply pushing RETURN on an input request. If an ampersand is used, it need only be preceded by a 


comma when the item immediately preceding it is an unquoted string. 


7.5 MATB=A 


This instruction sets up B to be the same as A and, in doing so, dimensions B to be the same as A, pro- 


vided that sufficient space has been saved for B. 


7.6 MATC=A+BAND MATC =A-8B 


For these instructions to be legal, A and B must have the same dimensions, and enough space must be 
saved for C. These statements cause C to assume the same dimensions as A and B. Instructions such as 
MAT A =A +B are legal; the indicated operation is performed and the answer stored in A. Only a 
single arithmetic operation is allowed; therefore, MAT D =A +B -C is illegal but may be achieved 
with two MAT instructions. | 


7.7 MATC=A*B 


For this instruction to be legal, it is necessary that the number of columns in A be equal fo the number 
of rows in B. For example, if matrix A has dimension L-by-M and matrix B has dimension M-by-N, 
then C =A *B has dimension L-by-N. It should be noted that while MAT A =A +B may be legal, 
MAT A =A * 8 is self-destructive because, in multiplying two matrices, we destroy components which 
would be needed to complete the computation. MAT B =A * A is, of course, legal provided that A 


isa "square" matrix. 


7.8 MAT C = TRN(A) 


This instruction lets C be the transpose of the matrix A. Thus, if matrix A is an M-by-N matrix, C is 
an N-by-M matrix. The instruction MAT C = TRN (C) is legal. 


7.9 MATC=(kK) *A 


This instruction allows C to be the matrix A multiplied by the number K (i.e., each component of A 
is multiplied by K to form the components of C). The number K, which must be in parentheses, may 


be replaced by a formula. MATA = (K) *A is legal. 
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7.10 MAT C =INV(A) AND THE DET FUNCTION 


This instruction allows C to be the inverse of A. (A must be a "square" matrix.) The function DET is 
available after the execution of the inversion, and it will equal the determinant of A. Consequently, 
the user can obtain the determinant of a matrix by inverting the matrix and then noting what value 
DET has. If the determinant of a matrix is zero, the matrix is singular and its inverse is meaningless. 


When an attempt is made fo invert a matrix whose determinant is zero, the warning message is printed, 


2 SINGULAK MATRIX INVEKTED IN nn 


DET is set equal to zero, and the program execution continues. 


7.11 EXAMPLES OF MATRIX PROGRAMS 


The first example reads in A and B in line 30 and, in so doing, sets up the correct dimensions. Then, 


in line 40, A +A is computed and the answer is called C. This automatically dimensions C to be the © 


same as A. Note that the data in line 90 results in A being 2-by-3 and in B being 3-by-3. Both | 


MAT PRINT formats are illustrated, and one method of labeling a matrix print is shown. 


12 DIM AC20s20)5 BC20s20)s C(20320) 
20 READ MosN 
30 MAT READ ACMsN) sBCNsN) 
40 MAT C=A+A 
50 MAT PRINT Cs 
69 ‘MAT C=A*B 
70 PRINT 
75 PRINT "“Ax*B="'s 
8 MAT PRINT C 
90 DATA 253 
91 DATA 153253 
92 DATA 43536 
93 DATA 1505-1 
94 DATA Os-ls-} 
95 DATA -1365@ 
99 END 
RUN 
MATRIX 08331 O9-MAR-71 
2 4 6 
§ 1812 
AxB= 
“2 -2 -3 
-2 -5 -S) 


TIMES @-13 SECS. 
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The second example inverts an n-by-n Hilbert matrix: 


I 1/2 WS teas 3 I/n 
© | 1/2 1/3 | 4... tt 
1/3 1/4 Ee I/n +2 
| | nek 
Wn l/n +1 lf +2 1/2n-1 
Ordinary BASIC instructions are used to set up the matrix in lines 50 to 90. Note that this occurs after 
= correct dimensions have been declared. A single instruction then results in the computation of the in- 
verse, and one more instruction prints it. Because the function DET is available after an inversion, 
’ it is taken advantage of in line 130, and is used to print the value of the determinant of A. In this 
example, we have supplied 4 for N in the DATA statement and have made a run for this case: 
be) REM THIS PROGRAM INVERTS AN N-BY-N HILBEKT MATRIX 
10 DIM AC2Os20)5 BC2B220) 
2 READ N 
30 MAT A=CONCNsN) 
38 FOR I=1 TON 
60 FOR J=!1 TON 
719 LET ACIs JI=H1/ CI +J-1) 
80 NEXT J 
90 NEXT I 
100 MAT B=INVCA) 
115 PRINT "“INVCA)=" 
120 MAT PRINT B 
125 PRINT 
136 PRINT "DETERMINANT OF A=" DET 
de 196 DATA 4 
° 199 END 
RUN 
HILMAT 133Se 20-OCT-69 
INVCA)D= 
16-9001 ~120.-901 248 «803 ~149-002 
-120-0G61 1200 -G1 -2 7098 83 1680-82 
248-993 -2799 -63 6480 -48 ~4200 85 
“140-982 1680 ee ~4200 -85 2600 -B3 


DETERMINANT OF A=1-65342E-7 


A 20-by-20 matrix is inverted in about 0.5 seconds. However, the reader is warned that beyond 


: n =7, the Hilbert matrix cannot be inverted because of severe round-off errors. 


7.12 SIMULATION OF N-DIMENSIONAL ARRAYS 


Although it is not possible to create n-dimensional arrays in BASIC, the method outlined below does 


simulate them. The example is of a three-dimensional array, but it has been written in such a way 
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that it could be easily changed to four dimensions or higher. We use the fact that functions can have 


any number of variables, and we set up a 1-to-1 correspondence between the components of the array 
and the components of a vector which equals the product of the dimensions of the array. For example, eo 
if the array has dimensions 2, 3, 5, then the vector has 30 components. A multiple line DEF could be — 
used in place of the simple DEF in line 30 if the user wished to include error messages. The printout | 


is in the form of two 3-by-5 matrices. 


& 

12 DIM. VC~1800) 

20 MAT READ D(3) 

30 DEF FNACI,d KI=C CI <1 *¥D(2 0403-1) * DCS) 4K & 

38 FOR I=1 TO DC1) 3 
55 FOR J=1 TO DC2) 

60 FOR K=1 TO DC(3) 

8 LET VCFNACIsJsK) I=1+2*J5J+Kt2 s 
90 PRINT VCFNACIsJsK))> 

100 NEXT K 

112 NEXT J 

112 PRINT ; 
115 PRINT 

120 NEXT I 

900 DATA 23355 

999 END 

RUN 
B3ARRAY 26307 27-OCT-69 

4 7 12 19 2S 

6 9 14 21 30 

8 11 16 23 32 

5 & 13 20 29 sh 

7 12 15 2e 31 

9 12 17 24 33 
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CHAPTER 8 


ALPHANUMERIC INFORMATION (STRINGS) 


In previous chapters, we have dealt only with numerical information. However, BASIC also processes 
alphanumeric information in the form of strings. A string is a sequence of characters, each of which is 
a letter, a digit, a space, or some other character. A string, however, cannot contain a character 


that is a line terminator (i.e., a line feed, form feed, or vertical tab), or a carriage return. 


String constants are normally enclosed in quotes (e.g., "TOTAL VALUE"). In some cases in some 
statements, the quotes can be omitted. Where this is allowed, it is explicitly stated in the description 


of the particular type of statement found elsewhere in this manual . 


Variables may be introduced for simple strings and string vectors, but not for string matrices. Any 
simple variable, followed by a dollar sign ($), stands for a string; e.g., A$ and C7$. A vecior vari- 
able, followed by $, denotes a list of strings; e.g., V$(n) or A2$(n), where n is the nth string in the 
list. For example, V$(7) is the seventh string in the list V. 


8.1 READING AND PRINTING STRINGS 


Strings may be read and printed. For example: 


10 READ AS» BSs CS 

20 PRINT CS$s BS3 AS 

38 DATA INGsSHARsTIME- 
14) END 


causes TIME-SHARING to be printed. The effect of the semicolon in the PRINT statement is consistent 
with that discussed in Chapter 6; i.e., it causes output of the alphanumeric items in a close-packed 


form. Commas, <PA> delimiters, and TABs may be used as in any other PRINT statement. The loop: 


70 FOR I=1 TO 12 
80 READ MS(I1) 
96 = NEXT I 


reads a list of 12 strings. 
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In place of the READ and PRINT, corresponding MAT instructions may be used for lists. For example, 
MAT PRINT M$; causes the members of the list to be printed without spaces between them. We may 
also use INPUT or MAT INPUT. After a MAT INPUT, the function NUM equals the number of strings 
inputted. When using the MAT INPUT statement, you can continue inputting strings on the next line 
by typing an ampersand (&) on the current line immediately before pressing the RETURN key. A comma 
must precede the ampersand if the siring immediately before the ampersand is unquoted. If the string 

is unquoted and a comma does not separate the string from the ampersand, the ampersand will be 


treated as part of the string. Thus, either MARY,& or "MARY"& is legal input. 


As usual, lists are assumed to have no more than 10 elements; otherwise, a DIM (or DIMENSION) 


statement is required. The following statement: 
10 DIM MS$C26) 


saves space for 20 strings in the M$ list. 


In the DATA statements, numbers and strings may be intermixed. Numbers are assigned only to numer- 
ical variables, and strings only fo string variables. Strings in DATA statements are recognized by the 
fact that they start with a letter. If they do not, they must be enclosed in quotes. The same require- 


ment holds for a string containing a comma. For example: 
92 DATA 10,ABC,5,”°4FG","SEPT. 22, 1968",2 


The only convention on INPUT and MAT INPUT is that a string containing a comma must be enclosed 


in quotes. The following example shows the correct format for a response to a MAT INPUT: 


MR. JONES, "146 MAIN ST., MAYNARD, MASS." 


8.2 STRING CONVENTIONS 


In every method of inputting string information into a program (DATA, INPUT, MAT INPUT, etc.), 
leading blanks are ignored unless the string, including the blanks, is enclosed in quotes. String con- 
stants (which must be enclosed in quotes) or string variables may oceur in LET and IF-THEN statements. 


The following two examples are self-explanatory: 


16 LET Y$=""YES" 
28 IF A7TS="YES" THEN 240 
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= 


The relation "<" is interpreted as "earlier in alphabetic order." The other relational symbols work in 


a similar manner. In any comparison, trailing blanks in a string are ignored, as in the following: 


"VES" = "yes « 


We illustrate these possibilities by the following program, which reads a list of strings and alphabetizes 


them: 
10 DIM LS$(5@) 
26 READ N 
30 MAT READ LSC(N) 
40 FOR I=1 TON 
52 FOR J=1 TO NeI 
69 IF LSCJ) < LEC U+1) THEN 140 
70 LET A$=L$¢J) 
8 LET LSC JI=LECJ+1) 
968 LET LSC J+1)=AS$ 
100 NEXT J 
110 NEXT I 
120 MAT PRINT L$ 
9006 DATA SsONE sTWOs THREE sF OUR sF IVE 
999 END 


Omitting the $ signs in this program serves to read a list of numbers and to print them in increasing 


order. 


A rather common use is illustrated by the following: 


334 PRINT "DO YOU WISH TO CONTINUE"'S 
346 INPUT AS 
350 IF AS="YES" THEN 190 


368 STOP 


8.3 NUMERIC AND STRING DATA BLOCKS 


Numeric and string data are kept in two separate blocks, and these act independently of each other. 
The RESTORE statement resets both the data pointers for the numerical data and string data back to the 
beginning of their blocks. RES TORE* resets the pointer only for the numerical data and RESTORE $ 
only for the string data. 


8.4. THE CHANGE STATEMENT 


In BASIC, it is very easy to obtain the individual digits in a number by using the function INT. One 
way to obtain the individual characters in a string is with the instruction CHANGE. The use of 
CHANGE is best illustrated with the following examples. 
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bs) DIM AC65) 


10 READ AS 
15 CHANGE AS TO A 
20 FOR I=@ TO ACO) 
e5 PRINT ACI)5 wo 
35 NEXT I 
40 DATA ABCDEFGHIJKLMNOPQRSTUVWXYZ 
45. END . 
RUN 
» 
CHANGE 13:59 26-OCT-69 
26 65 66 67 68 69 720 #71 72 #73 #74 j% 76 $77 TS TY g 
80 881 S82 83 864 §5 86 87 8&8 8&9 9B 
: dD 
In line 15, the instruction CHANGE A$ TO A has caused the vector A to have as its zero component 
the number of characters in the string A$ and, also, to have certain numbers in the other components. ° 
These numbers are the American Standard Code for Information Interchange (ASCII) numbers for the ~~ 


characters appearing in the string (e.g., A(1) is 65 - the ASCII number for A). 


Table 8-1 lists the ASCII numbers for printing and nonprinting characters. Note that the nonprinting 
characters are shown in the table as codes containing two or three letters. These codes are not output; 
the actual meaning of the ASCII number is output (e.g., 7 causes the bell to ring, it does not print 
BEL). 


Table 8-1 
ASCII Numbers and Equivalent Characters 


Meaning 


Null Shift out 

Start of heading Shift in 

Start of text Data link escape 

End of text Device control 1 

End of transmission Device control 2 

Enquiry Device.control 3 
Acknowledge Device control 4 

Bell Negative acknowledgement 
Backspace Synchronous idle 
Horizontal tab End of transmission block 
Line feed Cancel ‘ 
Vertical tab End of medium ip 
Form feed Substitute 
Carriage return Escape 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


om) 
excell 


a | 
GW Nd 


Note: Recall that line feed (LF), form feed (FF), vertical tab (VT), and carriage return (CR) are 
‘illegal in strings. 


(continued on next page) 
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a. Table 8-1 (Cont) 
ASCII Numbers and Equivalent Characters 


FS 


File separator 


ASCII 
Decimal 


Number 


Character Meaning 


Upper case H 


£ GS Group separator Upper case | 
RS Record separator Upper case J 
° US Unit separator Upper case K 


Upper case L 
Upper case M 
Upper case N 
Upper case O 


Space or blank 
Exclamation mark 
Quotation mark 
Number sign 


Dollar sign Upper case P 
Percent sign Upper case Q 
Ampersand Upper case R 
Apostrophe Upper case S 


Upper case T 
Upper case U 


Left parenthesis 
Right parenthesis 


Asterisk Upper case V 
Plus sign Upper case W 
Comma Upper case X 


Upper case Y 
Upper case Z 


Minus sign or hyphen 
Period or decimal point 


va Slash Left square bracket 
0 Zero Back slash~ 
1 One Right square bracket 
2 Two Circumflex or up arrow 
3 Three Back arrow or underscore 
| 4 Four Grave accent 
5 Five Lower case a 
6 Six Lower case b 
am, 7 Seven Lower case c 
a, 8 Eight Lower case d 
7 Nine Lower case e 
Colon Lower case f 
Semicolon Lower case g 
Left angle bracket Lower case h 
Equal sign Lower case i 


Lower case j 

Lower case k 
Lower case | 

Lower case m 
Lower case n 
Lower case o 
Lower case p 
Lower case q 
Lower case r 
Lower case s 


Right angle bracket 
Question mark 

At sign 

Upper case A 
Upper case B 
Upper case C 
Upper case D 
Upper case E 
Upper case F 
Upper case G 


“Y379T O35 3-7 KO Ta HMO A TA 


QATMUAFPOwvia~” 


(continued on next page) 
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Table 8-1 (Cont) 
ASCII Numbers and Equivalent Characters 


ASCII 
Character Meaning Decimal | Character Meaning 
Number 


Lower case ft Lower case z 
Lower case u Left brace 
Lower case v Vertical line 
Lower case w Right brace 
Lower case x Tilde 

Lower case y Delete 


The other use of CHANGE is illustrated by the following: 


1d FOR I=6 TO 5S 

1S READ ACT) 

AG) NEXT I 

25 DATA 3365366367368 69 
30 CHANGE A TO AS 

35 PRINT AS 

40 END 


This program prints ABCDE because the numbers 65 through 69 are the code numbers for A through E. 
Before CHANGE is used in the vector-to-string direction, we must give the number of characters 
which are to be in the string as the zero component of the vector. In line 15, A(O) is read as 5. The 


following is a final example: 


s DIM V(1268) 

10 PRINT “WHAT DO YOU WANT THE VECTOR V TO BE"3 
2Q MAT INPUT V 

38 LET VCQ)=NUM 

35 IF NUM=@ THEN 72 

40 CHANGE V TO AS 

1%) PRINT AS 

60 GO TO 10 

70 END 

RUN 

EXAMPLE: 13359 20-OCT-69 


WHAT DO YOU WANT THE V TO BE? 405453603453893 96 

(-<-YZ 

WHAT DO YOU WANT THE VECTOR V TO BE? 3393459355936237938339348341542 & 
? 439443453 46347348 9495959 

4 EZR C*¥+tae°¢/H12 

WHAT DO YOU WANT THE VECTOR V TO BE? 

TIME: @-10 SECS. 
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Note that in this example we have used the availability of the function NUM after a MAT INPUT to 


find the number of characters in the string which is to result from line 40. 


8.5 STRING CONCATENATION 


Strings can be concatenated by means of the plus sign operator (+). The plus sign can be used fo con- 
catenate string formulas wherever a string formula is legal, with the exception that information cannot 
be stored by means of LET or CHANGE statements in concatenated string variables. That is, concate- 
nated string variables cannot appear to the left of the equal sign in a LET statement or as the right- 
hand argument in a CHANGE statement. For example, LET A$=8$+C$ is legal, but LET A$+B$=C$ is 
not; and similarly, CHANGE A$+8$ TO X is legal, but CHANGE X TO A$4+48$ is not. An example 


of string concatenation is: 


10 INPUT A$ 

26 CHAIN AS+#"*MAIN-PRKG" 
30 END 

RUNNH 

?2DTAAS 


The program causes chaining to DTA4:MAIN .PRG, which is the program MAIN .PRG on DECtape 


drive 4, 


8.6 STRING MANIPULATION FUNCTIONS 


A number of functions have been implemented that perform manipulations on strings. These functions 
are LEN, ASC, CHR$, VAL, STR$, LEFT$, RIGHT$, MID$, SPACE$, and INSTR. Functions that 
return strings have names that end in a dollar sign ($); those functions that return numbers have names 


that do not end in a dollar sign. 


8.6.1 The LEN Function 


The LEN function returns the number of characters in a string. It has the form: 


LEN (string formula) 
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Exampl es: an 


12 READ ASs BS 
22 PRINT LENCAS+BS+"° AROUND” ) . a 
3h DATA “UP»s “s “DOWNs AND " 
42 END 
RUNNH bd 
20 
10 IF LEN (AS)<>0 THEN 30 - 
20 PRINT "AS IS A NULL STRING" 
38 END a 
~ 
8.6.2 The ASC and CHR$ Functions 
The ASC and CHR$ functions perform conversion of ASCII numbers in the same manner as the CHANGE 
statement. The ASC function converts one character to its ASCII decimal equivalent, and the CHR$ —_— 


function converts an ASCII decimal number to its equivalent character. 


The ASC function has the form: 


ASC (argument) 


The argument can be either one character or the two- or three-letter code that represents a nonprinting 


character (refer to Table 8-1 for these codes). ASC returns the equivalent ASCII decimal number for 


the character. 


The CHR$ function has the form: 


CHR$ (numeric formula) 


The value of the numeric formula is truncated to an integer that must be in the range 0 through 127 


and cannot be the numbers 10 through 13. If the integer is less than 0 or greater than 127 or one of 
the numbers 10 through 13, an error message is issued. This integer is then interpreted as an ASCII 
decimal number that is converted to its equivalent character (refer to Table 8-1 for the ASCII numbers 


and the equivalent characters). 


An example of the ASC and CHR$ functions follows. 


5 FOR T=ASCCA) TO ASCCAD+3 
10 PRINT “THIS IS TEST ** + CHRS(T) 
This is the beginning of a FOR loop that successively prints: os 
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be 


“at oe 
+ RAS 


@ 


o 


a 


THIS IS TEST A 


THIS IS TEST B 


THIS IS TEST C 


THIS IS TEST D 


8.6.3 The VAL and STR$ Functions 


The VAL and STR$ functions perform conversions from numbers to strings and strings to numbers. The 


form of the VAL function is: 


VAL (string formula) 


The string formula must look like a number; if it does not, an error message is issued. VAL returns the 
actual number that the string represents. The VAL function does not return the ASCII value of the 
number that the string represents, it returns the number. For example, VAL ("25") returns the number 


25. The 25 that is the argument to VAL is a string, the 25 that VAL returns is a number. 


If the string argument represents a number that is greater than about 1.7E38 in magnitude or non-zero, 
but less than about 1.4E-39 in magnitude, the appropriate overflow or underflow message is issued and 


the value returned is about 1.7E38, about -1.7E38, or zero, whichever is appropriate. 


Example: 
10 INPUT AS 
20 PRINT VAL (A$) *2 
106 END 
RUNNH 


2264611121 
4.92220 


The STR$ function returns the string representation (asa number) of its argument. The form of STR$ is: 


STR$ (numeric formula) 


The string that is returned is in the form in which numbers are output in BASIC (see Section 6.1). For 


example, PRINT STR$ (1.76111124) prints the string 1.76111. 
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Examples: 


10 A=2561 

2a BS=STRECA) 

36 PRINT BS 

40 END 

RUNNH 

2561 

10 A=25 

20 BE=STRSCA) 

38 CHANGE BS TO X 

40 PRINT X(@)3s XC€1)5 XC2) 
30 END 
RUNNH 

2 580 53 


8.6.4 The LEFT$, RIGHT$, and MID$ Functions 
The LEFT$, RIGHT$, and MID$ functions return substrings of their string arguments. 
The LEFT$ function returns a substring of a specified number of characters starting with the leftmost 
character of its string argument. The LEFT$ function has the form: 

LEFT$ (string formula, numeric formula) 
The value of the numeric formula is truncated to an integer that specifies the number of characters in 
the substring. If the specified number of characters is greater than the length of the string argument, 


the entire string is returned. If the specified number of characters is less than or equal to zero, an 


error message is issued. For example, 
10 PRINT LEFTSC"'THIS IS A TEST''s7) 
prints the substring 


THIS IS 


The RIGHT$ function returns a substring of specified length ending at the rightmost character of its 
string argument. The form of the RIGHT$ function is: 


RIGHTS$ (string formula, numeric formula) 


The value of the numeric formula is truncated to an integer that specifies the number of characters in 


the substring to be returned. If the number of characters is greater than the length of the string argu- 


ment, the entire string is returned. If the specified number of characters is less than or equal to zero, 


an error message is issued. For example, 
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5 AS="HERE AND THERE" 
10 PRINT RIGHTSCAS>s5) 


prints the substring 


THERE 


The MID$ function returns a substring of its string argument starting a specified number of characters 
from the leftmost character of the string argument. The number of characters in the substring can also 


be specified. The form of the MID$ function is: 


MID$ (string formula, numeric formula-1, numeric formula-2) 


The second numeric formula, which is truncated to an integer that specifies the number of characters 

in the substring, is optional and can be omitted, If thisargument is omitted, the substring includes all 
the remaining characters in the string argument. The first numeric formula is truncated to an integer 
that specifies the leftmost character at which the substring is to start. MID$ returns a null string if the 
first numeric formula when truncated to an integer is greater than the number of characters in the 
string argument; if it is less than or equal to zero, an error message is issued, If the number of charac- 


ters in the substring is specified (by the second numeric formula) and is greater than the number of 


characters in the string argument beginning at the specified character, MID$ returns the string argu- 


ment starting at the specified character. If the number of characters is less than or equal to zero, an 


error message is issued, 


Examples: 


19 PRINT MIDS ("TOTAL OUTPUT IN MARCH 317) 


RUNNH 
MARCH 


19 PRINT MIDS C"ABCDEF" s3 51) 


RUNNH 
¢ 
8.6.5 The SPACE$ Function 
The SPACE$ function returns a string of spaces. The form of the SPACE$ function is: 


SPACE$ (numeric formula) 
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The value of the numeric formula is truncated to an integer that specifies the number of spaces in the 


string to be returned. If the integer is less than or equal to zero or greater than 132, an error message = 


is issued, : 
Example: | * 
10 AS=BS$=""HERE" e 
20 FOR T=1 TO 3 
30 PRINT AS3 SPACES(T)3 BS | 
RUNNH 
HERE HERE 


HERE HERE 
HERE HERE ee 


8.6.6 The INSTR Function 


The INSTR function segehes for a specified substring within a string and returns the position of the first 
_ character of that substring within the string. The positions are numbered from the leftmost character 

in the string. The user can optionally specify that the search for the substring begin at a character 
position other than the first. The form of the INSTR function is: 


-INSTR (numeric formula, string formula-1, string formula-2) 


The numeric formula, which is truncated to an integer that specifies the starting character position, is 
optional and can be omitted. If the numeric argument is omitted, the search begins at the first charac- ® 


ter position. The first string argument is the string searched; the second string argument is the sub- 


string searched for. If the value of the numeric formula (if specified) is greater than the number of 
characters in the string or if the substring cannot be found in the string, INSTR returns a value of 
zero. If the value of the numeric formula is less than or equal to zero, an error message is issued. 

If the second string argument is a null string, INSTR returns the character position at which the search 
started, unless that position is past the last character in the string. In that case, INSTR returns a 


value of zero. 


®. 
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wn Examples: 


10 PRINT INSTR C"“ABCDCEF"™s "C"') 
. RUNNH 

3 
; 

19 PRINT INSTR (4s"ABCDCEF"s "C') 
ee : 

RUNNH 

5 


Note that if the second string argument occurs more than once within that part of the first string argu- 


ment that is searched, the first occurrence found is used. 
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CHAPTER 9 
EDIT AND CONTROL 


There are BASIC commands which: 


. Create, edit and manipulate files, 
Run BASIC programs, 
Cause the user to enter monitor mode, 


_ Obtain information, and 


Oa F&F WD NYO 


. Set the input mode. 


These commands operate on an entire BASIC program, and therefore are functionally different from the 
BASIC statements which comprise the program. For example; typing the LENGTH command causes 
BASIC to output the length (in characters) of the current program in the user's core memory. If, 
however, the user includes the LENGTH command as a statement in his BASIC program, an error is 


generated and the program cannot run. 


9.1 CREATING THE FILE IN CORE MEMORY 


A file is a collection of data. This data may be BASIC statements, thereby comprising a BASIC 
program; it may be data for a BASIC program, or it may be a combination of a program and data. 


Seven media are used fo store files. They are: 


1. Core memory, 
Disk pack and drum, 
DECtape and magnetic tape, and 


& WW ND 


- Paper tape and punch cards. 


At the time the user types R BASIC, a core memory area is allocated for his use and cleared of any 
previous user's files. Core memory may be thought of as a working storage area. Any work done on a 


file is performed in core memory, however, the user may not keep files in core memory for a prolonged 


‘period of time. Permanent storage of that nature is reserved for storage devices such as disk, magnetic 


tape, DECtape, paper tape and punch cards. 
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In order to create a new file, edit an existing file or run a file containing a BASIC program, the file 
must first be established in the user's core memory. The NEW command, the OLD command and the 
default to NONAME provide the means by which a file is established in core memory. Refer to the 


WEAVE command in Paragraph 9.3 for an-additional method of moving files into core memory. 


NEW filename .ext 


The user gives the NEW command to establish a new file in core memory. This file is given 


the name filename.ext. Before establishing the new file, BASIC clears the user's core memory. 


Thus, the file previously in user core (if any) is destroyed. (To retain the file, a SAVE 


command should be issued before the NEW command is given. Refer to Paragraph 9.3.) 


When issuing the NEW command, filename.ext may be omitted. In this case BASIC asks for 


the filename.ext by typing: 


NEW FILE NAME-- 


The user types the filename.ext. 


If the extension is not included (i.e., .ext is left out) BASIC assumes it is .BAS. If a carriage 


return is substituted for filename.ext, BASIC types ?WHAT? and disregards the NEW command. 


Once the NEW command is given, BASIC establishes the file by clearing the user's core and 
assigning the filename. When it is ready to accept the contents of the file, BASIC types 
READY. The user then inputs the file simply by typing it on the terminal. 


When the user is finished inputting the new file, he types ‘+C to return to the BASIC user 


mode (he was in input mode). 


The user should be aware that at this point the new file is only in core memory and not in 
permanent storage. This means that a command which clears the user's core memory (for 
example; a BYE, NEW or OLD command) destroys the file the user just input. The SAVE and 
REPLACE commands (described in Paragraph 9.4) store a file on the disk. 
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Belew 


or : READY 


NEW RESIS.BAS Establish a new file called RESIS .BAS. 
READY a 
10 INPUT RI, R2, R3 Type the file. 
20 R= CRI*R2*R3) / CCR2*R3) + RI*CR2+R3)) 

2 3@ PRINT “ THE PARALLEL RESISTANCE = “3s R 
40 END | 
SAVE Put RESIS .BAS on disk storage. 

& 
READY 


OLD dev:filename.ext 


By using the OLD command, the user replaces the file in core memory with one from a storage 


device. As with the NEW command, the contents of the user's core memory are cleared 
before the designated file is brought in. The storage device on which the file is located is 
given by dev:. Omitting dev: causes the default device (i.e., disk) to be selected. The file 


is identified by filename.ext. If omitted, BASIC requests the filename.ext by typing: 


OLD FILE NAME-- 


nw, The user should then type the filename.ext. If he presses carriage return, the command 
aborts and returns to BASIC user level. If the extension is omitted .BAS is assumed. The file 


~ obtained from the device must have line numbers. The indicated filename is now the current 


filename. 


Retrieving a file from a device in this manner does not delete the file on the source storage 


device. However, if the user modifies the file in core memory, thereby creating a new 


version of that file, the new version is not retained on a permanent storage device until a 


SAVE, REPLACE or COPY command is executed. (Refer to Paragraph 9.4.) 


READY | 
OLD DTAl: SOS, OUT Bring a copy of the file SOS.OUT, which is 
presently on DTAI:, into user core. 
READY 
Default to NONAME 
5 
There is a third way to establish a file in core memory. After BASIC responds with READY, 
the user may start typing the contents of his file. By this action the user is adding to the 
on material in core memory without assigning a new name to core memory and without initially 
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clearing the contents of core. If no filename is assigned to core memory (as is the case after 
issuing R BASIC), it takes the default name NONAME. Any action the user takes with the 
file should use NONAME unless a RENAME command is given. 


eR BASIC 

READY, FOR HELP TYPE HELP * 
@5 INPUT El Type in contents of 

10 INPUT R file. | 
25 I=EI/R a: 
35 PRINT ” THE EQUIVALENT CURRENT IS",I, “” AMPERES” : 
40 END | 

LIST Request output of 


file in user core. 


NONAME 14:86 12-SEPT=-73 Filename is called 
NONAME since no 


filename was specified. 


@5 INPUT El 

10 INPUT R 

25 I=EI/R 

55 PRINT “THE EQUIVALENT CURRENT IS",I, “® AMPERES” 
49 END 

READY 


The RENAME command alters the name of the file in core memory. This function is useful 


especially after a default to NONAME. 


RENAME dev:filename.ext 


The name of the user's file in core memory is changed to dev:filename.ext when the user 


issues the RENAME command. 


If dev: and/or .ext are left out when the command is given, the original dev: and/or .ext 


are kept. 


READY 
RENAME EQUIV. BAS 


READY 


9-4 January 1974 


9.2 LISTING FILES 


Often the contents of a file in the user's core memory or of a file in permanent storage must be ex- 


. amined. The LIST, QUEUE and tO commands produce a printed copy of the desired file. In 
addition, refer to the COPY command in Paragraph 9.4, 
2 LIST range, range, ... 
LISTNH range, range, ... 
The LIST and LISTNH commands, given without any range arguments, print the entire contents 
o~ of a file in the user's core memory area. LIST prints a one-line heading which includes the 


name of the file, the time and the date. LISTNH prints the specified lines without the 
heading. 


If only part of the core storage file is desired, range arguments are used to identify the 
desired lines. If more than one part is needed, additional range arguments can be added 


provided that each succeeding range specification is separated by a comma. 


Range arguments are permitted in one of two forms: 
= n A single line is printed when its line-number, n, is used as a range argument. 


. x-y A group of lines is output when the range argument is put in the form x-y, where x is 
the line-number of the first line in the group, and y is the line-number of the last line 
in the group. 


The lines are printed on the user's terminal in order of ascending line-numbers. 


LISTREVERSE 


® |LISTNHREVERSE 
a LISTREVERSE and LISTNHREVERSE print the contents of the user's core memory area in order of 
: descending line numbers. LISTREVERSE precedes the output with a heading, LISTNHREVERSE 
om 
| eliminates the heading. 
® 
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LISTREVERSE 


EQUIV, BAS 14315 12- SEPT-73 

48 END 

55 PRINT “THE EQUIVALENT CURRENT IS",I, ” AMPERES” 
25> I=E/R 

1@ INPUT R 

95 INPUT Et! 

READY 


+O suppresses the output of a file. BASIC responds with READY after termination. 


QUEUE filename .ext/UNSAVE/nCOPIES/LIMITm 


The QUEUE command causes the specified file to be printed on the line printer. This file 
must have been previously stored on disk by a SAVE, REPLACE or COPY command. The file 


in core storage is not affected by this command. 
If the extension of the filename is omitted, .BAS is assumed. 


The three optional switches /UNSAVE, /nCOPIES, and /LIMITm can be included in any order. 
UNSAVE and LIMIT can be abbreviated to as little as U and L respectively while the word 
COPIES can be omitted entirely. For example, QUEUE RETURN/U/L12/2 tells BASIC to list 
two copies of the file RETURN .BAS, but not exceed 12 pages in doing so. The file is deleted 


(unsaved). 


When the /UNSAVE switch is given, the file is immediately removed from the user's permanent 
(disk) storage area, then it is listed. Without this switch the file is retained. The n/COPIES 
switch causes n copies of the file to be printed to a maximum of 63 copies. Without this 
switch, one copy is printed. The /LIMITm switch indicates the maximum number of line 
printer pages that can be printed, Without this switch 200 pages is the limit. The arguments 


n and m must be integers. 


More than one file listing can be requested by placing a comma between each succeeding 


filename and its associated switches. 
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QUEUE EQUIV, BAS/2COPIES Request 2 copies of the file EQUIV .BAS 


be output on the line printer. 
FILES QUEUED: 
EQUIV. BAS 


READY 


9.3 EDITING A FILE IN CORE MEMORY 


_ After a file has been entered into the user's core memory by a NEW command, OLD command or a 


default to NONAME, the user may want to edit the file to eliminate any errors. 
9.3.1 Replacing Complete Lines 


The user inserts new lines and replaces existing lines by first typing the appropriate line-number and 


following it with a line of text. 


Type Line Number 


When BASIC is in user mode, typing a line number followed by text can have one of two 


consequences. 
1. If there is no existing line associated with that line-number, BASIC enters both the 
new line-number and the line into the file in the user's core memory. 


2. If there is already a line in the core file with the specified line-number, that line is 
deleted and the new line is inserted in its place. 


Simply typing a line number without any text establishes a blank line. 


9.3.2 Deleting Lines 


DELETE range, range, ... 


The DELETE command eliminates lines from the user's file in core memory. The range 


arguments specify which line(s) are to be eliminated. 
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9.3.3 


Range arguments are permitted in one of two forms: 


n A single line is deleted when its line-number, n, is used as a range argument. 


x-y A group of lines is deleted when the range argument is put in the form x-y, where x is 
the line-number of the first line in the group, and y is the line-number of the last line 
in the group. 


DELETE 125, 258-425, 908 Delete line 125, lines 250 thru 425 


| inclusive and line 900. 
READY 


Renumbering Lines in the Core File 


RESEQUENCE n,f,k 


9.3.4 


RESEQUENCE modifies the line-numbers of the file in user core. Line-number f is changed 


to line-number n. Succeeding lines are then incremented by k. f must be less than n. 


When f is omitted entirely the first line of the file takes line-number n, and succeeding 
lines take line-numbers ntk, n+2k, and so forth. Even though f is omitted, both commas. 


are retained. 


In cases where a single argument, n, is given, the first line-number is changed to n and 


succeeding line-numbers are produced, incrementing by 10. 


RESEQUENCE 188,25, 182 Renumber line 25 to 100 and number 


READY succeeding lines incrementing by 100. 


Clearing the Entire File 


The SCRATCH command deletes all line-numbers and their associated lines from user core. 


The name associated with the file in core is kept the same. 


SCRATCH 
READY 
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9.3.5 Merging Another File Into the File 


WEAVE dev:filename.ext 


The WEAVE command locates a file with the name filename .ext on dev:. This file is then 
merged into the file in user core. If two lines have the same line-number, the line in the 
file named in the WEAVE command replaces the line in the file in user core. Otherwise, the 


lines from the file are merged in sequential line-number order into the file in user core. 


OLD RESIS,BAS Take a copy of file RESIS.BAS from disk storage and 
put it in user core. 

READY 

LISTNH List RESIS.BAS 


1@ INPUT Rl, R2, R3 

20 R= (RIERSKR3S / (CROKR3) +. RIXCRO+R3)) 
30 PRINT " THE PARALLEL RESISTANCE = “s R 
4G END 


READY 

OLD EQUIV.BAS Take EQUIV.BAS and put it in user core. (RESIS.BAS 
is cleared from user core.) 

READY 

LISTNH List EQUIV.BAS 


85 INPUT El 

18 INPUT R 

25 I=EI/R 

- PRINT "THE EQUIVALENT CURRENT IS",I, " AMPERES" 


READY 
WEAVE RESIS, BAS MERGE RESIS.BAS into the file in user core 


(EQUIV .BAS). 


READY 

LIST 

EQUIV. BAS 15325 12-SEPT-73 
@5 INPUT El Line 05 is inserted. 
1@ INPUT RI, R2, R3 Line 10 is replaced. 
20 R= CRI*R2*R3) / CCR2E*R3) + R1*&CR2+R3)) Line 20 is inserted. 
25 I=EI1/R Line 25 is retained. 


5@ PRINT “THE PARALLEL RESISTANCE = “3 R_ Line 30 is inserted. 


35 PRINT “THE EQUIVALENT CURRENT Is",I, * AMPERES” 
Line 35 is retained. 


48 END Line 40 is replaced. 
READY 
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9.4 TRANSFERRING FILES 


Once a user has prepared a file in his portion of core memory, he will want to move the modified file 
to permanent storage such as, disk, DECtape, or papertape.: In addition, the user may want to move 


files from one storage device to another, especially from disk to DECtape. 
9.4.1 Transferring Files From the User's Core Storage 


Upon creating, weaving and editing a file in core storage, a user wants to retain a copy of the file 


for future use. The SAVE and REPLACE commands are then used. 


SAVE dev:filename.ext 


The SAVE command puts the file currently in user core on the storage device dev:, under the 


name of filename.ext. 


If dev: is omitted DSK: is assumed. If .ext is omitted .BAS is assumed. The filename.ext may 
be omitted, in which case the current filename.ext is used. The extension cannot be specified 


if the filename is omitted. 


The SAVE command does not overwrite an existing file of the same name. REPLACE should be 


used if that result is desired. 


SAVE Instruct BASIC to SAVE the present file on disk storage. 


READY 


REPLACE dev:filename.ext 


The REPLACE command deletes an existing file called filename.ext which is on the device 


dev: and inserts a new file from user core in its place, keeping the same name. 


If the device is DSK: or DECtape, the old file must be present on the device or an error 


message will be issued. 
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The arguments dev:, filename, and .ext can be omitted with the same conditions described 


for the SAVE command. 


Also, refer to the OLD command (Paragraph 9.1) and the WEAVE command (Paragraph 9.3.5), 


both of which transfer lines into core memory. 


REPLACE 
READY 


9.4.2 . Transferring Files From One Storage Device to Another 


COPY dev] :filenamel .ext >dev2:filename2.ext 


The COPY command reads filenamel .ext on dev]: and transfers a copy of it to dev2: where it 


is given the name filename2.ext. 


If the device is omitted, DSK: is assumed. If the device is not a disk or DECtape, the filename 
and extension can be omitted. Note, when the filename is omitted, the extension must also be 
omitted. Should the device be a disk or DECtape, the filename must be specified, but the 


extension can be omitted, and then the extension .BAS is used. 


The filenamel .ext need not have line-numbers to be acceptable to COPY. The program 


currently in core is not disturbed by a COPY command. 


COPY RESIS,BAS > DTA3:24RES,. BAS Make a copy of RESIS .BAS 
(which is on disk storage) on 
READY DECtape 3, and call it 24RES BAS. 


9.4.3 Destroying Files 


The UNSAVE command deletes the named files from the indicated devices. 


The arguments dev:, filename, and .ext can be omitted. If dev: is omitted, DSK: is assumed. 
If .ext is omitted, BAS is assumed. If filename.ext is omitted, the current filename.ext is 


used. 
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In specifying more than one file to be UNSAVEd, the user must separate the filenames with 


commas. 


UNSAVE RESIS. BAS 


FILES UNSAVEDs 
RESIS iw 
READY 


9.5 COMPILING AND EXECUTING A BASIC PROGRAM IN CORE MEMORY 


If the user's core file is a BASIC program and it has been created, edited, and saved, it is ready to 


be compiled and executed. Note: A BASIC file does not have to be a BASIC program. The Edit and 


Control Commands discussed in this chapter are also used in creating files containing data and files 
containing text. The user does not want to compile and execute a data file or a text file. The RUN, 


CHAIN and *C commands aid the user in processing his BASIC program. 


RUN n 
RUNNH n 


The RUN commands compile the entire program residing in user core. The RUN command 


generates a heading upon running the program; while RUNNH deletes the heading. After 
compilation, the program is executed starting at statement number n. If n is omitted, 


execution starts at the very beginning of the program. 


CHAIN 


The CHAIN statement can be included in a BASIC program to cause one program to run 


another program. For further information refer to Paragraph 6.6. 


Two *+C's stop a running program and return the user to the BASIC command mode. All files 


that were opened by the program are closed. * 


Tin monitors prior to 5.05 (and in 1040 monitors), two CTRL-C's (tC +C) may return the user to 
monitor mode, which is indicated when a period is typed. If this occurs, type REENTER to return to 
BASIC command mode. 
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ENTERING MONITOR MODE FROM BASIC 


While in BASIC, the user may desire to use additional I/O devices, obtain system information or 


request a special service. In order to accomplish these and other similar tasks, the user must put his 


terminal in monitor mode. 


9.6.1 What Is Monitor Mode? 


Once BASIC has printed "READY, FOR HELP TYPE HELP", the user knows that he has successfully 


entered BASIC and he can now type BASIC commands. In the DECsystem-10 environment, there can 


be many people using a large variety of system programs (of. which BASIC is one), running their own 


programs, or performing other functions. The monitor is the supervisory program which schedules and 


controls those operations requested by each user, so that the system can better serve all users. 


To issue a request to the monitor (a monitor command) after entering BASIC, the user must leave 


BASIC and enter monitor mode. He may then use the appropriate monitor command(s). 


When the user is finished and desires to reenter BASIC, he must type certain monitor command(s) to 


leave monitor mode and enter BASIC. 


Refer to the DECsystem-10 Operating System Commands in the DECsystem-10 User's Handbook 
(DEC-10-NGZB-D) or to the DECsystem-10 Software Notebooks. 


"Operating system commands" is another name for "monitor commands" . 


a 


Table 9~1 
Commands That Enter Monitor Mode From BASIC 


Causes the user to leave BASIC and enter monitor mode. The process is 
complete when the monitor types a period, indicating that the user may 
type any monitor command, 


Caution -- All Monitor Commands which run a program in performing their 
function, destroy the contents of the user's core. This means that all work 
done in BASIC that has not been permanently stored somewhere else (e.g., 
papertape, DECtape, or disk) by using a BASIC command will be lost. 

Refer to Paragraph 9.4. 


Is almost idenrical to the MONITOR command in function. Unlike 
MONITOR, however, it does not allow the user to reenter BASIC by 
typing CONTINUE; only REENTER or START will succeed. 


9-13 March 1974 


Table 9=2 
Useful Monitor Commands 


, 


»ASSIGN dev: Allocates an I/O device to the user's job for the duration of the job or 
until a DEASSIGN command is given. No operator intervention is * 
required (preserves user core). 


~DAYTIME Types the date followed by the time of day (preserves user core). 


~DEASSIGN dev: Releases a device the user has previously assigned to his job (preserves 
user core). 


«DIRECTORY Lists the names of all user files currently on disk storage (destroys user 
core). , 


~DISMOUNT dev: Releases a device the user has previously requested through a MOUNT a 
command. This command requires operator intervention (destroys user 
core). 


eR GRIPE Records user comments for later review by the operations staff (destroys 
user core). 


¢MOUNT dev: Requests an I/O device be allocated to the user's job. This command 
requires operator intervention (destroys user core). 


«PLEASE Allows the user uninterrupted communications with the operator 
(destroys user core). 


REWIND dev: Rewinds a magnetic tape or a DECtape (destroys user core). 
oEND Transmits a one-way message to a designated station (preserves user core). 


eSYSTAT Runs a program which prints status information about the system (destroys 
user core). 


«TIME Types out the total running time of the whole job (preserves user core). 


eUNLOAD dev: Rewinds and DEASSIGNs or DISMOUNTs a DECtape or magnetic tape 


(destroys user core). 


dev: can be DTAn:, DSKa:, LPTn:, ete. n=numeric, a=alphanumeric 


9.6.2 Returning to BASIC From Monitor Mode 


There are two different methods of returning to BASIC from monitor mode. The method the user 


employs depends upon whether he preserved or destroyed his core memory area. 
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command which destroys the contents of his core memory, he may use one of the following commands | 


to reenter BASIC. 


User's Core Preserved = If the user has entered monitor mode and has not issued a monitor 


Table 9=3 


& 


Commands That Reenter BASIC When Core is Preserved 


»REENTER or The user can exit from the monitor and reenter BASIC by typing either 
- START REENTER or START. If, while in the monitor, the user has issued a 
monitor command which destroys user core, neither the REENTER nor the 
START command causes the user to reenter BASIC. In this case he must 
type R BASIC. 


CONTINUE The CONTINUE command serves exactly the same purpose as REENTER or 
START as far as BASIC is concerned. However, it will only be successful 
in reentering BASIC after a BASIC MONITOR command; it will not work 
after a SYSTEM command has been used. 


READY 

SYSTEM Enter Monitor Mode. 

eo ASSIGN DTA3: Request DECtape 3 be allocated to the job. 

DTAS ASSIGNED Monitor assigns DTA3: 

CONTINUE Try to reenter to BASIC. 

2CAN’T CONTINUE Cannot type CONTINUE after a SYSTEM command. 
© START Alternative request to return to BASIC. 

READY O.K. BASIC responds. 


7.6.2.2 User's Core Destroyed - When the user desires to return to BASIC after he has destroyed 
his core storage area he does so by typing R BASIC. BASIC responds with "READY, FOR HELP TYPE 


HELP" when it is ready to accept commands. 


a iate 
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READY 


MONITOR Enter Monitor Mode. 

«DIRECTORY Request listing of user files. 

HEADGS BAS 2 <@55> 23- APR=- 73 DSKCs: (27,23) . 
BAS E2 BAS 5S <]55> 15-JUL- 73 

BTPLSR RNO 7 <855> 15-AUG-73 


TOTAL OF 12 BLOCKS IN 3 FILES ON DSKC: [27,23] 


eREENTER Try to get back to BASIC. 

?7NO START ADR No starting address exists since DIRECTORY destroyed _ 
user core. 

eR BASIC BASIC must be recalled: 


READY, FOR HELP TYPE HELP 


9.7 OBTAINING INFORMATION 


Three commands, CATALOG, HELP and LENGTH, retrieve important information from the system 


concerning available |/O devices, commands and program size. 


CATALOG device: 


After the CATALOG device: command is entered, the system lists on the user's terminal the 
names. and extensions of the user's files residing on the named device. When device: is 


omitted, DSK: is assumed. 


device: can be 


BAS: Typing BAS: as the device outputs the library programs residing on the storage 
area BAS. 

SYS: Typing SYS: as the device lists the system programs stored on the system device 
SYS. | 

DSKn: n (a number or letter) specifies a particular disk when more than one is available. 


If n is omitted, files on all disks are listed. 


DTAn: n (usually a number 0,1,2,...) identifies a particular DECtape when more than 
one is available. If the operating system command, ASSIGN, has been used to 
assign a DECtape or DECtapes, n may be omitted. The files on the DECtape 
with the lowest logical number will be listed. Should n be omitted and no 
DECtapes are assigned the user, logical unit 0 is assumed. Errors may result 
from omitting n in this situation, Refer to ASSIGN in Paragraph 9.2 for more _ 
guidance in using DECtapes. 
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READY 
CATALOG DSKC: Type the names of all files on disk DSKC: 


HEADGS, BAS 
BASE2,. BAS Files on DSKC: are listed. 


POPUL.BAS 
READY 


READY 
CATALOG DTAs Type the names of files on the DECtape with 


the lowest logical unit number which is 
assigned to the user. 

OPER! ACTION REQUESTED In this case no DECtape was assigned to the 
user so DTAO: was assumed, but this DECtape 
was assigned to another user. 


READY 
MONITOR 
e ASSIGN DTAIs Assign DTAI: to your job. 


DTAL ASSIGNED 
REENTER 


READY 
CATALOG DTAs Type the names of files on DTAI: 


FILA.REL 
UPPER. CAS 
SOS, OUT 


READY 


After the user types the HELP command BASIC types a list of BASIC commands and a brief 


explanation of each on the user's terminal. 


READY 
HELP Request BASIC to output a brief description 


of its commands. 


THIS IS THE HELP FILE FOR DECSYSTEM-10 BASIC VERSION 17B 


THE FOLLOWING IS A SHORT (TWO PAGE) DESCRIPTION OF 
SOME OF THE MOST COMMONLY USED COMMANDS. FOR MORE 
INFORMATION SEE THE BASIC MANUAL IN THE DECSYSTEM-1@ 
SOFTWARE NOTEBOOKS. 

BYE 


LOGS THE USER’S JOB OFF THE SYSTEM. 


READY 
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The LENGTH command instructs the system to output the approximate length of the source 


program (stored in the user's core memory) expressed as the number of characters. 


READY | ©. 
LENGTH 

295 CHARACTERS 
READY 


ADDITIONAL INFORMATION 


Information about the system is available via the use of operating system commands. Refer yom, 


to Paragraph 9.6. 
9.8 SETTING THE INPUT MODE 


The two input mode commands (TAPE and KEY) are useful only to users whose terminals are equipped 


with paper tape apparatus. One commonly used machine of this type is the LT33B (Figure C-1). 


Table 9-4 


Input Mode Commands 


By specifying: Input Mode 


KEY The system is set to accept input from the 


terminal keyboard. a ae 


TAPE The user is aided in inputting information 
stored on paper tape. 


When neither command is input, KEY is assumed. Refer to Appendix C for more information. TAPE 


and KEY apply only to input mode, and do not affect output to the terminal. 


READY ; 
TAP E i: 
READY 
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9.9 LEAVING BASIC 


When the user has finished all his work, he wants to use BYE or GOODBYE. 


BYE 
GOODBYE 


BYE and GOODBYE exit the user from BASIC and log him off the DECsystem-10. Refer to 
Section 4.6. 
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CHAPTER 10 
DATA FILE CAPABILITY 


The data file capability allows a program to write information into and read information from data files 


that are on the disk. 


Nine input/output channels are reserved for handling data files from a program. A data file must be 
assigned to a channel before it can be referenced in the program. At any given time, a program can 
have one and only one file on each channel and one and only one channel assigned to each file. Con- 
sequently, a maximum of nine files can be open simultaneously. However, because it is possible for 
a program to change or establish file/channel assignments while it is running, there is no limit to the 


number of data files that can be referenced in one program. 


10.1 TYPES OF DATA FILES 


There are two types of data files acceptable to BASIC: sequential access files and random access files. 


10.1.1 Sequential Access Files 


Sequential access files are those files that contain information that must be read or written sequentially, 
one item after another, from the beginning of the file. A sequential access file is either in write mode 
or read mode, but cannot be in both modes at the same time. When read mode is established, reading 
starts at the beginning of the file. When write mode is established, the file is erased and writing starts 


at the beginning of the file. 


An important distinction to note about sequential access files is that they can be listed in readable form 
on the user's Teletype or the line printer. Sequential access files consist of lines that contain data 
items. A sequential access file is either a line-numbered file or a nonline-numbered file, depending 
upon whether or not its lines begin with line numbers. Line-numbered files are like BASIC programs in 
that they can be manipulated by any of the commands described in Chapter 9 (e.g., OLD, LIST, 
DELETE) except the RUN(NH)‘and CHAIN commands. Nonline-numbered files cannot be handled by 


any of the commands that expect a file to have line numbers; they can only be manipulated by the 
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COPY, QUEUE, and UNSAVE commands. They can be listed on the user's Teletype by means of the 


COPY command; for example: 


COPY TEST4 > TTY: 


Sequential access files do not necessarily have to be created by a program; they can be created at the 
editing level in BASIC. Line-numbered files can be created or modified just as a BASIC program is 
created or modified. Nonline-numbered files can be created at the Teletype and then transferred to a 
storage device such as the disk by means of the COPY command. The following conventions must be 
observed when dealing with a sequential access file at the editing level: 
a. In line-numbered files, each line number must be followed immediately by at 
least one space, a tab, or the letter D. 


b. A line can contain any number of data items separated from one another by at 
least one space, a comma, ora tab. However, the line must not be longer than 
142 characters (counting the line number and its following delimiter, but not 
the carriage return and line feed that terminate the line). It is not necessary 
to have a space, comma, or tab after the last data item on the line. Note that 
blanks and tabs are not ignored in a data file as they are in a program. 


c. A data item is any numeric constant (refer to Section 1.3.3) or string constant 
(refer to Chapter 8). Numeric constants must not contain blanks or tabs. Ifa 
string is to contain a blank, comma, or tab, the user must enclose the string 
in quotes; otherwise it will be read as more than one data item by the statements 
that read data. 


Section 10.4 contains an example of the use of a line-numbered data file created at the editing level. 
Section 10.5.1 contains an example of a program that creates both a line-numbered data file and a 


nonline-numbered data file and shows what these files look like when they are copied to the Teletype. 


Because it requires execution time for a program to read and write line numbers in a data file, a 
nonline-numbered data file should be used in preference to a line-numbered data file unless the user 


specifically wishes to edit the data file with commands such as DELETE. 


Another distinction between sequential access files is whether the file is a pure data file or a text file. 
A pure data file is used primarily for the storage of data. A text file contains data that is probably 
destined for output to the line printer, because it is a report, a financial statement, or the like. The 
user must follow slightly different procedures in his program depending on the type of file he wishes to 
handle. For example, a string that contains a blank must be enclosed in quotes when it is written into 
a pure data file, otherwise it will be seen as more than one string when data is read from the file. 
However, such a string should not be enclosed in quotes when it is written into a text file because text 
fi les are not normally read back into a program, and the superfluous quotes would spoil the appearance 
of the file when it is printed. The procedures to follow when handling each type of file are explained 
in Sections 10.5.1 and 10.7. 
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10.1.2 Random Access Files 


Random access files are data files that are not necessarily read or written sequentially. The user can 
read items from or write items into a random access file without having the items follow one after the 
other. The items in a random access file are not recorded in a form suitable for listing, and therefore 
cannot be output to the user's Teletype or the line printer. Random access files cannot be handled by 
any of the BASIC commands other than COPY and UNSAVE. A random access file can be copied to 
the disk, DECtape, or magnetic tape, but not to any other device (Teletype, paper-tape punch, card 
punch, or line printer). Copying a random access file to a device other than disk, DECtape, or mag- 
netic tape will cause errors to be introduced into the file. If the system program PIP is used to transfer 
a random access file to disk, DECtape, or magnetic tape, the file must be transferred in binary mode. 


Refer to the PIP manual for information on how to use PIP. 


Random access files, unlike sequential access files, do not distinguish between read mode and write 
mode. The user can read or write any item in a random access file at any time by first setting a 
pointer to that item. A random access file contains either string data e numeric data, but not both. 
Each data item in a random access file takes up the same amount of storage space, called a record, 

on the disk. BASIC must know the record size for the random access file in order to correctly move 
the pointer for that file from one data item to another. The record size for a random access numeric 
file is set by BASIC because the storage space required for a number in such a file is always the same. 
The storage space required for a string, however, is dependent upon the number of characters in the 
string. Thus, for a random access string file the user must specify the number of characters in the 
longest string in the file so that BASIC can set the record size accordingly. This specification takes 
place when the file is assigned toa channel. Refer to the description of the FILES and FILE statements 
in Section 10.2. When creating a new random access string file, if the user specifies too few charac- 
ters an error message is issued when a string too long to fit into a record is written. If too many 
characters are specified for a record, the strings will always fit, but space will be wasted on the disk. 
When he is dealing with an existing file, the user does not have to specify a record size. If he does 
specify a record size for an existing file, the record size must match that with which the file was 


wriften. 


BASIC processes random access files more quickly than it processes sequential access files. Consequent- 
ly, if the user wishes to read or write large amounts of datd in sequential order, but does not require 
that the data be in listable form, he should consider using a random access file to take advantage of its 


speed. A random access file can easily be read or written in sequential order. 


Version 17 BASIC 10-3 February 1972 


10.2 THE FILE AND FILES STATEMENTS 


The FILE and FILES statements perform identical functions. They both assign a file to a channel and 
establish the type of the file (sequential, random access string, or random access numeric). The 
difference between FILE and FILES is that FILE is an executable statement while FILES is not. Before 
execution of the program begins, BASIC collects all of the FILES statements in the program, makes the 
channel assignments, and sets the file types as they were declared in the FILES statements. The FILES 
statements are not used again during that execution of the program. GO TO and GOSUB statements 
to FILES statements work just as they do to REM statements; i.e., execution will transfer to the first: 
executable statement following the FILES statement. The FILE statement, on the other hand, assigns 
channels and establishes file types during program execution, thereby allowing the user to change 


file/channel assignments during the running of his program. 


The FILE and FILES statements accept filename arguments of the form: 
filenm.ext type 


where filenm and .ext are the filename and extension of the file in the form described in Chapter 4. 
The filename must be specified, but the extension can be omitted. If the extension is omitted, .BAS 

is assumed. Type can be a percent sign (%); a dollar sign ($) optionally followed by one, two, or 

three digits; or omitted. If type is omitted, the file is assumed to be a sequential access file. Ifa 
percent sign is specified, the file is assumed to be a random access numeric file. A dollar sign option- 
ally followed by a one- to three-digit number indicates a random access string file. The number follow- 
ing the dollar sign specifies the number of characters in the longest string that the file will contain. 

A maximum of 132 characters and a minimum of one character can be specified. If the number is 
omitted from the dollar sign type and the file does not presently exist, a default length of 34 characters 
is established. If the number is omitted from the dollar sign type and the file does exist, the length 


with which the file was previously written is established. 
The FILES statement has the form: 


FILES filenm.ext type, filenm.ext type, ...filenm.ext type 


where the arguments can be separated by a comma or a semicolon. Channels are assigned consecutively 
to the arguments of all the FILES statements in the program. If an argument is omitted, the channel for | 


the missing argument is skipped. For example, if a program contains only these FILES stateménts: 


10 FILES »» A3sB 
20 FILES CsDs 
30 FILES E 


file A will be assigned to channel 3, file B to channel 5, file C to channel 6, file D to channel 7, and 


file E to channel 9. 
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The FILE statement has the form: 
FILE arg], arg2, ... argn 


where the arguments can be separated by a comma or a semicolon. At least one argument must be 
present in a FILE statement. Each argument that assigns a sequential access file to a channel is of the 
form: 


#N, string formula 
or ®N: string formula 


Each argument that assigns a random access file to a channel is of the form: 


:N, string formula 
or :N: string formula 


N is a numeric formula having a value from 1 to 9 that specifies the channel; the value is truncated to 


an integer if necessary. The string formula is of the form: 
filenm. ext type 


Note that the channel specifier for a random access file is preceded by a colon (:) while the channel 
specifier for a sequential access file is preceded by a number sign (*). This is true of all data file 
statements and functions that include channel specifiers. Some data file statements and functions do 
not require the number sign or colon to be specified explicitly, but default to one or the other. See 
the description of the various statements and functions in the following sections for details. An attempt 


to reference a file with a channel specifier of the wrong type causes an error message. 


The FILE statement does not permit the enclosing quotes to be omitted when its string formula argument 
is a constant. This is because a statement of the form FILE :1, B$ would cause an ambiguity. The B$ 


could be taken as a variable (B$) or as a random access string file named B. 


Before the FILE statement assigns a file to a channel, it checks to see if a file already exists on that 
channel; if so, the old file is closed and removed from the channel before the new file is assigned. 
The type of the old file is immaterial; it is permissible, for example, to close an old sequential access 
file on a channel and then open a random access file on that channel. Any file open on a channel at 
the end of program execution or whenever BASIC is reentered is automatically closed and removed from 


that channel. 


-Examples of FILES and FILE statements are: 


1d FILE #15 “ONEDAT's #45*'OUTDAT” 

28 FILE #93: “CHKDAT-4"s 3:43 BS+'Z" 

30 FILES FOUR-OUTSs MAIN-8&8333 PROGS1I6 
40 FILE #R*25 ““BASFIL" 


Version 17B BASIC 10-5 September 1972 


10.3. THE SCRATCH AND RESTORE STATEMENTS 
The SCRATCH statement has the form: 


SCRATCH argl, arg2, ... argn 


The RESTORE statement has the form: 
RESTORE argl, arg2, ... argn 


where the arguments can be separated by a comma or a semicolon. An argument is of the form: 


For sequential access files: 


#N 
For random access files: 


:N 


where N is a numeric formula having a value from 1 through 9 that specifies the channel. If necessary, 
the value is truncated to an integer. If neither a number sign nor a colon is present in front of the N, 


the number sign is assumed. At least one argument must be present in a SCRATCH or RESTORE statement. 


Scratching a sequential access file erases it and sets it in write mode. Writing will start at the begin- 


ning of the file. Referencing a sequential access file with a statement that does input (READ, INPUT, 


or IF END, described in Sections 10.4 and 10.10) while it is in write mode results in a fatal error. 


Scratching a random access file simply erases it and sets the pointer for the file to the first record in 


the file. 


Restoring a sequential access file sets the file in read mode. Reading will start at the beginning of the 


file. Referencing a sequential access file with a statement that does output (WRITE or PRINT, described 


in Section 10.5) while it is in read mode results in a fatal error. When a sequential access file is 
opened by a FILES or FILE statement and the file exists at that time, it is automatically set in read 
mode; it is not necessary to restore it. It is only necessary to restore a sequential access file if it has 


been set in write mode and the user wishes to set it to read mode in the same program. 


Restoring a random access file simply sets the pointer for the file to the first record in the file. When 


a random access file is opened on a channel by a FILE or FILES statement, its pointer is automatically 


set to point to the first record of the file. 


Examples of the SCRATCH and RESTORE statements are: 


E 19 SCRATCH #45 3:25 4&T-1ls 1} 
20 SCRATCH #1» 29 35 4 
80 RESTORE 3:2 $95 1 

| 90 RESTORE SQR (X)» 2s 359 7 
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10.4 THE READ AND INPUT STATEMENTS 


The READ and INPUT statements read data items from files. The READ statement has the following 


forms: 


For sequential access files: 
READ #N, variable, variable, ... variable 


For random access files: 
READ :N, variable, variable, ...variable 


The INPUT statement has the following forms: 
For sequential access files: 
INPUT #N, variable, variable, ... variable 


For random access files: 
INPUT :N, variable, variable, ...variable 


N is a numeric formula having a value from 1 through 9 that specifies the channel. The value is trun- 
cated to an integer if necessary. At least one variable must be present in each READ or INPUT state- 
ment. The delimiter following N can be a comma or acolon. The variables are separated from one 


another by a comma or semicolon. 


The variables in a READ or INPUT statement for a sequential access file can be string or numeric or a 
mixture of both. The variables in a READ or INPUT statement for a random access file can be string 
or numeric, but not both, because a given random access file cannot contain both string and numeric 


data items. 


READ and INPUT statements for sequential access files differ from one another in the following way. 
The READ statement expects each line of data in the file to begin with a line number, which it then 
skips. That is, the line number is not treated as data. If a line number is not present, an error mes- 
sage is issued. The INPUT statement, on the other hand, does not expect a line number on each line 
of data. If one is present, it is read as data. It is illegal to use both INPUT and READ statements to 
read from the same sequential access file unless the file has been restored between the two types of 
statements. An attempt to mix READ and INPUT statements for sequential access files results in a fatal 


error message. 


Examples of the READ and INPUT statements for sequential access files are: 


10 READ #25 ACI)» Ls BS 
30 READ #65 Z§ 

185 INPUT #45 BCK) 

122 INPUT #75 WSs ™M 


READ and INPUT statements for random access files are completely equivalent. They both begin read- 


ing at the item that the pointer for the file specifies, and continue reading sequentially until all of 
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the variables have been filled. It is legal to use both READ and INPUT statements to input from the 


same random access file. 


If the user attempts to read beyond the last item in either a sequential access or a random access file, 
a fatal error message is issued. In a random access file, it is possible to have items that have not been 
written but that are within the file (because some subsequent item has been written). If such an item 
is ina numeric file and is read, a value of zero is input. If such an item is in a string file, a string 


containing no characters is returned. 


i 


Examples of READ and INPUT statements for random access files are: 


20 READ 25 As BCI)» Cs Fe 
52 READ :4s9 F$»s GSC8) 
210 INPUT sis QC¢2) 


240 INPUT 3S: N13 Nes NB 


The following example shows a sequential access file being created at the editing level and then read 


by a program. 


NEW 
NEW FILE NAME--TEST2 ~ 


READY The user types in and then 
10 “‘LANTHANIDE SERIES” SAVEs the data file 


20 LA»sCE»PR»NDsPMsSMsEUsGDsTBsDYsHOsER "TEST2" 
25 TMs YBsLUs57571 
SAVE 


READY 
OLD 
OLD FILE NAME--TABLE 


READY The old file "TABLE" is re- 
LISNH 


Sees trieved and listed. (—" 
5 FILES TEST2 

12 READ 41.5BS$ 

15 FOR X=1 TO 15 

26 READ #415sAS(¢(X) 

25 NEXT X 

30 READ #lsNlsN2e 

35 PRINT “THIS IS THE “3BS 


49 PRINT 
42 PRINT “ELEMENT'» "ATOMIC NUMBER" | 
44 PRINT | | [ 


45 FOR Y=1 TO 15 

SQ PRINT ASCY)IsNI-1+ Y 
55 NEAT Y 

199 END 


* 


(continued on next page) 
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READY 
RUN 


TABLE 13:31 15-JUL-70 


THIS IS THE LANTHANIDE SERIES 


ELEMENT AiU48LL WUD ER 
LA 37 
CE 98 
PR 59 
ND 60 
PM 61 
SM 62 
EU 63 
GD 64 
TB 65 
DY 66 
HO 67 
ER 68 
T™ 69 
YB 710 
LU 71 


TIMES @+18 SECS. 
KEADY 


An exaniple of reading from a random access file is given in Section 10.6. 


10.5 THE WRITE AND PRINT STATEMENTS 


The WRITE and PRINT statements write data items into files. 


10.5.1 WRITE and PRINT Statements for Sequential Access Files 
The WRITE and PRINT statements for sequential access files have the following forms: 


WRITE #N, list of formulas and delimiters 

PRINT #N, list of formulas and delimiters 
where N is the channel specifier. The delimiter following N can be a comma or a colon; it can be 
omitted if the list is omitted. The formulas in the list can be string or numeric or both. The TAB 
function can be used. The delimiters can be commas, semicolons, or <PA> delimiters; they have the 


same meanings that they have in the PRINT statement for the Teletype (refer to Chapter 6). 


WRITE and PRINT statements for sequential access files differ from one another in the following way. 
The WRITE statement begins each line of output with a line number followed by a tab. The first line 
in the file is numbered 1000 and subsequent line numbers are incremented by 10. The PRINT statement, 


on the other hand, does not begin lines with line numbers. It is illegal to use both WRITE and PRINT 
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statements to write to the same sequential access file unless the file has been erased (by means of the 


SCRATCH command) between the two types of statement. An attempt to mix WRITE and PRINT state- 


ments results in a fatal error message. 


Files created by WRITE statements are normally read by READ statements. Files created by PRINT 


statements are normally read by INPUT statements. 


Examples of the WRITE and PRINT statements for sequential access files are: 


50 WRITE #29 SQRCAIFEXP(G)3 QCI) 
75 PRINT #75 <PA> BCI)55sCCI)95DC1) 
110 WRITE #3 


The normal mode of output for WRITE and PRINT statements for sequential access data files is noquote 


mode. In noquote mode, strings are not enclosed in quotes even if they contain characters that the 


READ and INPUT statements see as delimiters. Also, strings are concatenated if they are output with 


a semicolon separating them. Noquote mode is the mode used when writing a text file (refer to 


Section 10.1.1 for a description of text files and pure data files). Noquote is the default mode; a 


sequential access file is automatically set in noquote mode when it is assigned to a channel by a FILE 


or FILES statement. However, noquote mode is not suitable when writing pure data files because the 


integrity of the data is not maintained. In order to write a pure data file, the file must be set in quote 
mode. This can be done by the QUOTE or QUOTE ALL statement, both of which are described in 
Section 10.7. When a file is in quote mode, BASIC accepts WRITE and PRINT statements that are in 


the usual form, but it makes whatever small changes that are necessary to the formatting in order to 


preserve the integrity of the data items. Refer to Section 10.7 for details about the changes that are 


made. 


An example of the actions performed by the WRITE and PRINT statements follows. 


10 FILES As B 

20 SCRATCH #12 

30 WRITE #1» 13 2s TABC7@)»s» 3 
40 PRINT #25 “A'S 4 

a END 

RUNNH 


TIME: @-@2 SECS- 
READY 
COPY A > TTY: 


01000 1 2 
91010 3 


10-10 


(continued on next page) 


READY 
COPY B > TTY: 


* A 4 
READY 
de. 10.5.2 WRITE and PRINT Statements for Random Access Files 


The WRITE and PRINT statements for random access files have the forms: 


WRITE :N, formula, formula, ... formula 
PRINT :N, formula, formula, ... formula 


where N is the channel specifier. The delimiter following the channel specifier can be a comma or a 


colon. At least one formula must be present in each statement. The formulas are separated from one 


another by a comma or semicolon. Ina given statement, all of the formulas must be string or all of 


them must be numeric because a random access file is either string or numeric but not both. 


WRITE and PRINT statements for random access files are exactly equivalent; they both begin writing 
into the record that the pointer for the file specifies, and continue writing sequentially until all of 
their arguments have been written. It is legal to use both WRITE and PRINT statements to write to the 


same random access file. 


Examples of WRITE and PRINT statements for random access files are: 


25 WRITE :2@5 Ns L3 M 
35 PRINT 3:4: ASs BS+tQSCI) 


An example of writing to a random access file is shown below in Section 10.6. 


10.6 THE SET STATEMENT AND THE LOC AND LOF FUNCTIONS 
The SET statement has the form: 
SET arg], arg2, ... argn 
where the arguments can be separated by commas or semicolons. Each argument has the form: 


:N, numeric formula 
or  :N: numeric formula 


where N is the channel specifier. The colon preceding the channel specifier can be omitted because 
SET is only used for random access files; the colon is therefore redundant. Each SET statement must 
have at least one argument. When a SET statement is executed, the pointer for the file on the speci- 


fied channel is moved so that it points to the item in the file that is specified by the numeric formula, 


which has been truncated to an integer. If the numeric formula after truncation is less than or equal to 
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zero, an error message is issued. The items in the file are numbered sequentially; the first item in the 


file is 1, the second 2, and so forth. The next statement in the program that reads from or writes to 
the random access file will read or write the item to which the pointer was set, provided that the 
pointer has not been moved again by a subsequent SET statement or another statement. | 


Examples of SET statements are: 


55 SET $35 1005 %?45 150 
85 SET $1513 43215 


An example of a program using the SET statement follows. 


10 FILES TEST4Z 
20 FOR T=1 TO 10 
30 WRITE sis T 
4D NEXT T 

58 FOR T=1 TO 190 BY 2 
60 SET tl» T 
[) READ sls X 

8B PRINT X 

92 NEXT T 

180 END 
RUNNH 

l 

3 

5 

7 

9 


TIME: @-@1 SECS- 


Two functions, LOC and LOF, return information about random access files. LOC returns the number 
of the record to which the pointer for the file currently points, and LOF returns the number of the 


last record in the file. 


The forms of LOC are: 


LOC(N) 
LOC(:N) 


The forms of LOF are: 


LOF(N) | « 
LOF(:N) 


where N is the channel specifier. An error message is issued if a random access file is not assigned to 


the specified channel when the function is executed. 
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es 


An example of these functions is: 


10 IF LOCC2)<=LOFC@) THEN 32 
2G PRINT “FINISHED FILE CN CHANNEL 2" 


10.7 THE QUOTE, QUOTE ALL, NOQUOTE, AND NOQUOTE ALL STATEMENTS 


As was discussed in Section 10.5.1, the default mode for output to sequential access data files or to 


the TELETYPE is noquote mode. The QUOTE and QUOTE ALL statements allow the user to change the 


mode of the Teletype and sequential access files to quote mode. Quote mode changes the way that 
the data items are written into the files or onto the Teletype. In quote mode, strings are enclosed in 


double quotes by BASIC if they contain blanks, tabs, or commas; a leading blank is output immediately 
before strings and negative numbers; and a double quote character cannot be output by the user. If such 
an attempt is made to output a double quote character, an error message is issued. Also a data item 


cannot be longer than the maximum amount of space available on a new line. If an attempt is made to 
output a data item longer than this, a fatal error message results. In noquote mode, the data item 
would be split across two or more lines. These modifications to the normal formatting are sufficient to 


insure that the integrity of the data is maintained, as was discussed in Section 10.5.1. 


The opposite of quote mode is noquote mode, which can be set by the NOQUOTE and NOQUOTE ALL 
statements. Noquote mode is the default mode for the Teletype and sequential access files. Whenever 
a sequential access file is assigned to a channel by a FILES or a FILE statement, it is automatically set 
in noquote mode. NOQUOTE and NOQUOTE ALL statements are only necessary if the user wishes to 


change a file from quote to noquote mode. 


When creating a pure data file, in addition to setting the file in quote mode, it is good practice to 
separate the formulas in the WRITE or PRINT statements with semicolons to pack the data items close 
together. Although separating the formulas with commas is permissible, it will waste space on the 
disk. 
The form of the QUOTE statement is: 

QUOTE argl, arg2, ... argn 


where each argument has the form: 


#N 
or N 


where N is the channel specifier. If an argument is omitted, the Teletype is specified; for example, 


30 QUOTE » l»s 4 


refers to the Teletype and the files on channels 1 and 4. 
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Since QUOTE is assumed to have at least one argument, the statement 


38 QUOTE 


specifies the Teletype. 


The form of the QUOTE ALL statement is: 
QUOTE ALL = 


QUOTE ALL refers to channels 1 through 9, but not to the Teletype. £ 


When a channel is referenced in a QUOTE or QUOTE ALL statement and that channel has a sequential 
access file currently assigned to it, output to the file is done in quote mode. If a sequential access 


file is not presently assigned to the channel, nothing is done and no error message is returned. 


The form of the NOQUOTE statement is the same as that of the QUOTE statement, except that the = 
word NOQUOTE is substituted for the word QUOTE. Examples of NOQUOTE statements are: 


10 NOQUOTE #75s2 
26 NOQUOTE 


The first example specifies the files on channels 7 and 2 and the Teletype. The second example speci~ 


fies the Teletype. 


The form of the NOQUOTE ALL statement is: 
NOQUOTE ALL 
When a channel is referenced by a NOQUOTE or NOQUOTE ALL statement and that channel has a 


sequential access file currently assigned to it, output to the file will be written in noquote mode. If 


a sequential access file is not presently assigned to the channel, nothing is done and no error message 


is returned. 


The use of the QUOTE ALL or NOQUOTE ALL statement is a convenient way to set all sequential 
access files currently assigned to channels into the appropriate mode, since the statements will not 
return error messages about or affect unassigned channels or the Teletype, and will not damage any of 


the random access files currently assigned to channels. 


Quote or noquote mode can be set even if the file is in read mode because these modes have no effect 


on input. They will affect the output if the file is subsequently put into write mode. 


If the mode is changed from quote to noquote or vice versa, the change takes effect immediately . 
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10.8 THE MARGIN AND MARGIN ALL STATEMENTS 


Normally, the right output margin for the Teletype and sequential access files is 72 characters. 
[ Whenever a sequential access file is assigned to a channel by a FILES or a FILE statement, the file's 
output margin is automatically set to 72 characters. At the beginning of and also at the end of program 
execution, the Teletype output margin is set to 72 characters. There is no margin in a random access 


file. 


The MARGIN and MARGIN ALL statements allow the user to set the right output margin for the Tele- 


e 
* 
at 
at 


type or any sequential access file from 1 to 132 aharactes The form of the MARGIN statement is: 
MARGIN argl, arg2, ... argn 


where each argument has the form: 


#N,, numeric formula 


The arguments can be separated by commas or semicolons. N is the channel specifier. The numeric 
formula specifies the margin size; it is truncated to an integer. Either a comma or a colon can be used 


to separate the channel number from the margin size. 


If only the margin size is present in the argument, that argument refers to the Teletype. For example: 


| 35 MARGIN 75s #82132 

sets a margin of 75 characters for the Teletype and a margin of 132 characters for the file on channel 
8. 
The form of the MARGIN ALL statement is: 


MARGIN ALL numeric formula 


This statement sets the sequential access files on channels 1 through 9 to the margin specified by the 
numeric formula, the value of which is truncated to an integer before the margin is set. The Teletype 


is not affected by the MARGIN ALL statement. Examples of the MARGIN ALL statement are: 


60 MARGIN ALL 132 
65 MARGIN ALL N*ABSCKCI)) 


f Neither the MARGIN nor MARGIN ALL statement has any effect on random access files or on chan- 
nels that have no files assigned to them. Consequently, the MARGIN ALL statement is a convenient 


way to set a margin for all sequential access files currently assigned to channels. 


The monitor command SET TTY WIDTH must be used in addition to the BASIC MARGIN statement if 
~~ the user wishes to set the output margin for the Teletype to any size greater than 72 characters. Refer 
a to Section 6.7 for details. 
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The margins set by the MARGIN and MARGIN ALL statements apply only to output. The margin for 


input lines for both the Teletype and sequential access files is not affected by these statements; it is 


message. 


A margin set by a MARGIN or MARGIN ALL statement takes effect as soon as a new line of output is 


begun for the Teletype or the sequential access file. 


Although the right margin can be set to any number between 1 and 132 characters, the margin for lines 
output by WRITE statements must be at least 7 characters to allow for the line number and its following 
tab. If the margin is less than 7 characters for a line-numbered file, an error message is issued by the 


first WRITE statement referencing the file. 


10.9 THE PAGE, PAGE ALL, NOPAGE, AND NOPAGE ALL STATEMENTS 


always 142 characters. An attempt to input a line longer than 142 characters results in an error 


Normally, output to the Teletype or to sequential access files is not divided into pages; that is, it is 


in nopage mode. Whenever a sequential access file is assigned to a channel by a FILES or a FILE 


statement, it is automatically set in nopage mode. At the beginning and also at the end of program 


execution, the Teletype is set to nopage mode. The PAGE and PAGE ALL statements allow the user 


to set a page size of any positive number of lines for the Teletype and sequential access files. The 


NOPAGE and NOPAGE ALL statements allow the user to set the Teletype and sequential access files 


F to nopage mode. Nopage and page modes are meaningless for random access files. 


The form of the PAGE statement is: 


PAGE argl, arg2, ... argn 


where each argument has the form: 


#N,, numeric formula 


The arguments can be separated by commas or semicolons. N is the channel specifier. The numeric 


formula is truncated to.an integer and used to specify the page size. Either a comma or a colon can 


be used to separate the channel number from the page size. 


If only a page size is present in an argument, that argument refers to the Teletype; for example: 


40 


PAGE #15 663 


5@s #7362 


sets the files on channels 1 and 7 to page sizes of 66 and 62 lines respectively, and the Teletype to a 


page size of 50 lines. 
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The form of the PAGE ALL statement is: 


PAGE ALL numeric formula 


This statement sets the sequential access files on channels 1 through 9 to a page size specified by the 
numeric formula; however, the Teletype is not affected. The value of the numeric formula is truncated 


to an integer before the page size is set. An example of the PAGE ALL statement is: 


90 PAGE ALL @(2)*B 


; Neither the PAGE nor PAGE ALL statement has any effect on random access files or on channels that 
have no files assigned to them. Consequently, the PAGE ALL statement is a convenient way fo set a 
page size for all of the sequential access files currently assigned to channels. If a PAGE or PAGE ALL 


statement specifies a page size of zero or less than zero, an error message is issued. 


When a PAGE or PAGE ALL statement is executed for a sequential access file that is in write mode or 
for the Teletype, BASIC ends the current line of output (if necessary), outputs a leading form feed, 
and starts counting lines beginning with the next line output. Subsequently, whenever a new page 
becomes necessary, a form feed is output and the line count is set back to zero. Execution of a <PA> 
delimiter sets the line count to zero. PAGE and PAGE ALL statements can be executed for sequential 
access files in read mode; in this case, the leading form feed is not output. A page size remains in 
effect until another PAGE or PAGE ALL statement changes it, until a NOPAGE or NOPAGE ALL 


statement is executed for that file or the Teletype, or until the end of program execution. Setting the 


page size for the Teletype is further described in Chapter 6. 


The form of the NOPAGE statement is: 


NOPAGE argl, arg2, ... argn 


where each argument has the form: 


FN 
or N 


where N is the channel specifier. If an argument is omitted, the Teletype is specified; for example: 
10 NOPAGE #355 2 


refers to the Teletype and the files on channels 2 and 3. 


‘= Since the NOPAGE statement is assumed to have at least one argument, the statement 
7 NOPAGE 


refers to the Teletype. 


Version 17 BASIC 10-17 August 1971 


The form of the NOPAGE ALL statement is: 


NOPAGE ALL 


The NOPAGE ALL statement sets all of the sequential access files on channels 1 through 9 in nopage 
mode, but does not affect the Teletype. 


Like the PAGE and PAGE ALL statements, NOPAGE and NOPAGE ALL statements have no effect on 
channels that have random access files or no files assigned to them. Consequently, the NOPAGE ALL 
statement is a convenient way to set all of the sequential access files currently assigned to channels 


into nopage mode. 


10.10 THE IF END STATEMENT 


The IF END statement allows the user to determine whether or not there is any data left in a file 


between the current position in the file and the end of the file. 


The statement forms are: 


For sequential access files: 


IF END #N {en pin number 


For random access files: 


GO TO 


IF END nf line number 


THEN 


where N is the channel specifier. The line number must refer to a line in the program and must follow 
the rules for line numbers discussed in Chapter 1. Either THEN or GO TO must be used in the state- 
ment. The comma preceding THEN or GO TO is optional. 


The IF END statement will execute for a sequential access file only if the file is in read mode; an error 
message will be issued if the file is in write mode or if it does not exist. The IF END statement will 
always execute for a random access file that exists because such a file does not distinguish between 
read and write modes. For the purposes of the IF END statement, the end of a random access file is 
considered to be just beyond the final record in the file. The LOC and LOF functions described in 
Section 10.6 can also be used to determine whether or not there is any data between the current pointer 


position in a random access file and the end of the file. 


If an IF END statement is executed for a sequential access file that is in read mode but that has not yet 
been referenced by a READ or INPUT statement, the IF END statement will assume that the file does 
not have line numbers. Thus, if an IF END statement is executed for a line-numbered file that has not 


been referenced by a READ statement, the IF END statement will treat line numbers as data items and 
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will erroneously report that there is data in the file if only line numbers remain in the file. As soon 


as a READ or INPUT statement is executed for a file, the IF END statement correctly interprets the 


kind of file (line-numbered or nonline-numbered) and can distinguish between line numbers and data. 


The following example shows how the IF END statement works for sequential access files. 


160 
179 


RUNNH 


ee | 
muiukdé @ ow ou 


TIME: 


AN BwWN — 


FILES TEST 
SCRATCH #1 

FOK X=1 TO 5 
READ A 

WRITE #15 A 
NEXT X 

RESTORE #1 

FOR JI=1 TC 14 
PRINT “TJ = "3 Ts 
IF END #1 THEN 178 
READ #15 BCI) 


PRINT BCI) 
NEXT I 
PRINT "FAILED" 
STOP 
DATA #159-23-°339-43975 3-69-79 7-89-9s-1B 
END 

-] 

-2 

ak) 

-4 

-5 
@e-10@ SECS. 


If the final record written into a random access file is record number 1804, for example, the IF END 


statement will cause a transfer when it is executed only if the pointer for that file has a value of 1805 


or greoter at that time. 
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CHAPTER 11 
FORMATTED OUTPUT 


The user who wishes to control the format of his output more than is permitted by the PRINT, PRINT#, 
and WRITE* statements described in Chapters 6 and 10 can use the statements described in this chapter. 
These statements are PRINT USING, PRINT USING#, and WRITE USING#. They all use a special 


formatting string, called an image, to format their output. 


11.1 THE USING STATEMENTS 


The PRINT USING statement allows formatting of string and numeric output to the Teletype. The forms 
of the PRINT USING statement are: 


PRINT USING line number, list 
PRINT USING string formula, list 


The PRINT USING# and WRITE USING# statements allow formatting of output to data files. 
PRINT USING# formats output to data files without line numbers; WRITE USING# formats output to 
line-numbered data files. The forms of the PRINT USING# statement are: 

PRINT USING #N, line number, list 

PRINT USING #N, string formula, list 


PRINT #N, USING line number, list 
PRINT #N, USING string formula, list 


The forms of the WRITE USING# statement are: 


WRITE USING #N, line number, list 
WRITE USING #N,, string formula, list 
WRITE #N, USING line number, list 
WRITE #N, USING string formula, list 


o 


a | N is a numeric formula having a value from 1 through 9 that specifies the channel that the file is on. 
The comma following N can be omitted in the forms in which N precedes the word USING. The list 


has the form: 


formula delimiter formula delimiter...formula 
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The formulas are either string or numeric and the delimiters are commas or semicolons. At least one 


formula must be present in the list. 


The USING statements output each formula in their lists under the control of an image that specifies 
the format. The image is a string of characters that describe the form of the output (integer, decimal, 
string, etc.) and the placement of the output on the output line. If the USING statement contains a 
line number as its argument, the image is on the line specified by that line number. Such a line is 


called an image statement and has the form: 


line number : string of characters 


The string of characters in an image statement is not enclosed in quotes. For example: 


10 PRINT USING 20> A 
29 : THE ANSWER IS #### 


Image statements cannot be terminated by the apostrophe remarks indicator because an apostrophe can 


be used as a format control character in an image. 


If the USING statement contains a string formula as its argument, the image is the value of the string 
formula. If the string formula is a string constant, it must be enclosed in quotes. An example of the 


image in the USING statement is: 


10 PRINT USING “THE ANSWER IS ####"s5 A 


When a USING statement is executed, BASIC begins a new line of output, and the first argument in 
the USING statement is output into the first specification in the image. If there are more arguments 
in the USING statement than specifications in the image, a new output line is begun and the specifi- 


cations in the image are used again. USING statements always write complete lines. The current 


margin set for the Teletype or the data file referenced does not affect USING statements; however, 
an attempt to create a line longer than 132 characters results in an error message. Quote and noquote 


modes do not affect USING statements; USING statements ignore both modes. 


The WRITE USING# statement performs the same functions as the PRINT USING* statement except that 
WRITE USING# places a line number and a tab at the beginning of each line. Neither the line num- 
ber nor the tab are specified in the image. WRITE USING# statements must be used for files that have 


line numbers, and PRINT USING*# statements must be used for files that do not have line numbers. If 


an attempt is made to use a WRITE# or WRITE USING# statement for a file that was previously written 
by PRINT# or PRINT USING# statements, an error message will be issued unless an intervening 
SCRATCH# statement erased the file. Similarly, an attempt to use PRINT# or PRINT USING# state- 
ments for a file that was previously referenced by WRITE® or WRITE USING# statements results in an 


error message unless an intervening SCRATCH# statement erased the file. 
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An example of PRINT USING# and WRITE USING# is shown below. 


10 FILES TESTi»s TESTe 

26 SCRATCH #15 #2 

30 AS = "THE INDEX IS ##" 
49 FOR T = 1 TO 3 

39 PRINT USING #15 AS»s T 

60 WRITE USING #25 ASs T 

70 NEXT T 

80 END 

RUNNH 


TIMES @-@1 SECS. 


READY 

COPY TEST1 > TTY: 
THE INDEX IS 1 
THE INDEX IS @ 
THE INDEX IS 3 


READY 

COPY TEST2@ > TTY: 
1000 THE INDEX IS 1 
1910 THE INDEX IS 2 
1920 THE INDEX IS 3 


READY 


11.2 IMAGE SPECIFICATIONS 


An image is a string that contains format characters and printing characters. The format characters 
form specifications that describe how the values of the arguments of the USING statement will be 
arranged on an output line. More than one specification can be present in an image, but to avoid 
ambiguities when outputting numbers, the user should separate numeric specifications by string specifi- 
cations, printing characters, or spaces. Note that spaces are printing characters and, therefore, as 
many spaces as are inserted between specifications will be inserted between the output items. That is, 
if two spaces separate a numeric specification from the preceding specification, two spaces will sepa- 
rate the numbers that are output according to these specifications. If numeric specifications are not 
separated from one another, ambiguities will generally exist and BASIC will make arbitrary decisions 
about the specifications. In general, it will accept as much of the specifications as it can, stopping 


when a character is seen that clearly delimits a specification because it considers that it has reached 


‘the end of the specification. String specifications need not be separated from one another because 


they are not ambiguous. Printing characters are output exactly as they appear in the image. 


Image specifications can be divided into three major kinds: 


a. Numeric image specifications 
b. Edited numeric image specifications 


c. String image specifications 
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11.2.1 Numeric Image Specifications 


Numeric image specifications are used to describe the formats of integer and decimal numbers. Format 
characters within the image specification indicate the digits, sign, decimal point, and exponent of the 
number. Numbers in BASIC normally contain eight significant digits, and never contain more than 

nine significant digits. If a numeric image specification would cause a number to be output with more 
than nine significant digits, zeroes are substituted for all digits after the ninth. The format characters 


in all numeric image specifications must be contiguous. 
The format characters used in numeric image specifications are: 
# (number sign) 


. (decimal point) 
ttttl (four up-arrows) 


Number signs in the specification indicate the digits in the number and a raraue sign if the number 
is negative. At least two number signs must be present at the beginning of the image specification; 
an isolated number sign is treated as a printing character, A number sign is written in the image 
specification for each digit in the number to be output plus one additional number sign to indicate 
a minus sign if the number to be output is negative. For example, to output a negative four-digit 
integer, at least five number signs should be written in the image specification; a non-negative 


number containing four digits requires only four number signs. 


11.2.1.1 Integer Image Specifications - Numbers can be output as integers by means of an image 
specification containing only number signs. As stated above, an additional number sign must be in- 
cluded in the image specification for a minus sign if the number is negative. If the number is positive 
or zero, no sign is output; if the number is negative, a minus sign is output. If insufficient characters 
are present in the image specification, an ampersand (8) is placed in the first position of the output 


field and the field is widened to the right to accommodate the number. If the image specification 


width is larger than necessary to accommodate the number, the number is right-justified in the output 
field. The number to be output is truncated to an integer if it is not an integer. An example showing 


integer image specifications follows. 


1g READ A,B,C,D,E 
ot DATA 25.6, -l4e7, 4y “Sel, “4187603 
30 PRINT USING "#### ###", A, B,C 
AD AS ="##HHE™ — 
5g PRINT USING A$, D, E me 
6g END | 
R UNNH ia 
25 -14 

4 

-9 
&- 41876 


lon some Teletypes, the circumflex (“ ) is used instead of the up-arrow (1). 
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11.2.1.2 Decimal Image Specifications - Decimal image specifications must contain number signs, as 
in integer image specifications, and a single decimal point. Optionally, the user can include four 

up-arrows (tttt) at the end of a decimal specification to indicate that the number is to be output with 
an explicit exponent. A number output under control of a decimal image specification always contains 


an explicit decimal point. 


When four up~arrows are present in the image specification, an explicit exponent is output in the form 
Et+nn. The sign of the exponent is always output, a plus sign for positive or zero exponents, a minus 


sign for negative exponents (e.g., E+01). 


The decimal point in the image specification causes the decimal point to be fixed in the output field. 
Thus number signs that precede the decimal point in the image specification reserve space in the output 
field for the digits before the decimal point and a minus sign if the number is negative. At least one 
digit is always output before the decimal point, even if the digit is zero. The number signs that follow 
the decimal point in the image specification reserve space for the digits after the decimal point in the 


output field. 


If the number is to be output with an explicit exponent, a position must be reserved for the sign of the 
number even if the number is positive (a space is output for the sign of a positive number). When the 
number with the exponent is output all of the positions before the decimal point in the output field are 
used and the exponent is adjusted accordingly. If the number is not to be output with an explicit 
exponent, and more spaces are reserved before the decimal point than are necessary, the number is 
right~justified in the output field and leading spaces are appended. If insufficient spaces are reserved 
before the decimal point, an ampersand (8) is placed in the first position of the output field and the 


field is widened to the right to accommodate the number. 


Whether or not the number is output with an explicit exponent, as many digits are output following 
the decimal point as there are number signs following the decimal point in the image specification. 


The number is rounded or trailing zeros are added if necessary. 


An example of the use of decimal image specifications follows. 


12 READ A,B,C,D,E,F 

22 cHeHe HH HE. HH HERE 

3g PRINT USING 20, A,B,C,D,E,F 
4g DATA 108.256, 3.6, 218.24318 
59 DATA -4.6, 3, 8.81256 

62 PRINT 

7g PRINT USING 80, 108.2, 14 

88 c#EF HE TTTT HFC TTTT 

98 END 

R UNNH 


102.26 4. &218.2432 
“4.60 3. 8.0126 


ID.OE+O1 14.E+00 
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11.2.2 Edited Numeric Image Specification 


For those users who wish to output numbers in a form suitable for accounting reports, payrolls, and the 
like, additional format characters can be included in numeric image specifications to cause the numbers 


to be edited. The format characters used for edited numeric specifications are: 


(comma) 
(minus sign) 
(asterisk) 
(dollar sign) 


GF * I 


Comma 


One or more commas in the integer part of a numeric image specification causes the digits in the out- 


put number to be grouped into hundreds, thousands, etc., and separated by commas (e.g., 1,000,000). 


The commas, however, cannot be in the first two places in the specification. Only one comma need 


be present in the image specification for the number to be output with commas in the required places, 
but a pound sign or a comma must be present in the image specification to reserve space for each comma 
to be output. For example, to print the number 1,365,072, the image specification must contain one 


comma and at least eight pound signs and/or commas. It is useful, however, to position commas in the 


specification where they will appear when they are output, e.g., ##,### ### | A comma that is not 


part of a numeric image specification is treated as a printing character. 


Example: 
10 PRINT USING " ####4 s###" SIE 4s1ES51F6 
2 PRINT 
30 PRINT USING 405 -141516-8 
46 S#HH SHHHHH O# 
38 END 
RUNNH 
10 »008 
100 »880 


&15s000 »000 


-1415516-8 


Trailing Minus Sign 


A trailing minus sign in a numeric image specification causes the number to have its sign printed at 


its end, rather than at its beginning (e.g., 27-). A trailing minus sign in a number is often used in a 


report to indicate a debit. When a trailing minus sign is present in the image specification, a position — 


need not be saved at the beginning of the image specification for the sign of the number, since the 


minus sign reserves a place for the sign. When the trailing minus sign is present in the image specifi- 
cation and the output number is positive or zero, the sign field on output is blank. A minus sign that 


does not end a numeric image specification is treated as a printing character. 


Version 17A BASIC 


11-6 


May 1972 


Example: 


12 PRINT USING “###-''3105-145137-8 
20 PRINT 
36 PRINT USING 405 -141516-8»s -14 
49 SHH aHHHFH eH m- HH ett tIt= 
50 END 
RUNNH 

10 

14- 

137 


141551668- 14-E+80- 


Leading Asterisk 


If a numeric image specification begins with two or more asterisks instead of number signs, the number 


is output with leading asterisks filling any unused positions in the output field. Leading asterisks are 


often used when printing checks or in any application that requires that the numbers be protected (i.e., 


so that no additional digits can be added). 


Within an image specification, an asterisk can replace one or all of the number signs. In image speci- 


fications with leading asterisks, negative numbers can be output only if there is a trailing minus sign 


in the image specification. If a trailing minus sign is not present in the image specification and an 


attempt is made to output a negative number, an error message will be issued. Thus, an additional 


position need not be saved for a leading sign. Four up-arrows cannot be present in an image specifi- 


cation that contains leading asterisks. Thus, numbers with explicit exponents cannot be output with 


leading asterisks. An isolated asterisk in an image is treated as a printing character. 


An example showing image specifications with leading asterisks follows. 


10 AD a" KK oe KK" 

20 READ XsYoZoaWoU 

25 DATA 134565 4¢5775 Sels 19-6125 100-50 
30 PRINT USING ASs XsYsaZoaWosU 

35 PRINT 

42 PRINT USING "x#k*#k&s%*K* *€k#H# Oe", LE69-1E3 
58 END 

RUNNH 

*13-56 

*K4258 

**3G 210 

*19-61 

169.59 


158985000 1000- 


Version 17 BASIC 11-7 


August 1971 


Floating Dollar Sign 


If a numeric image specification begins with two or more dollar signs instead of number signs, the num- 
ber is output with a floating dollar sign. That is, a dollar sign is always output in the position immedi- 
ately preceding the first digit of the number, even if there are fewer digits in the number than there 
positions specified in the image specification. This capability is often used to protect checks so that 


there are never any spaces left between the dollar sign and the number. 3 @ 


The dollar sign can replace any or all of the number signs in the image specification (i.e., $$$$.$$ is 
exactly the same as $$## ,##), An additional position at the beginning of the image specification must 


be indicated to save a place for the dollar sign in the output field. 


When the floating dollar sign is used in the image specification, negative numbers can be output only 


if there is a trailing minus sign. Ifa trailing minus sign is not present in the image specification and 
an attempt is made to output a negative number, an error message is issued. Thus, a space need not be 
reserved for a leading sign in the output field. Four up-arrows cannot be present in a numeric image 
specification that contains dollar signs. Thus, numbers with explicit exponents cannot be output with 


floating dollar signs. An isolated dollar sign in an image is treated as a printing character. 


An example showing floating dollar sign specifications follows. Note that the image in line 10 con- 


tains a decimal numeric image specification that is preceded by a dollar sign. This single dollar sign 


is treated as a printing character and, as shown in the example, is fixed in the output field. 


10 SSS55-55 GHHHH HH 

2 READ AsBosC 

25 DATA 1080+435 1966785 @.97 
38 PRINT USING 1@5 AsAsBsBsCosC 
35 PRINT 

49 PRINT USING "S$5559"5100@0 
30 END 

RUNNH 


$106-43 $$ 190.43 
$19-68 S$ 19.268 
$9-97 &§& B97 


$1 s800 


11.2.3 String Image Specifications 


The string image specifications allow the user to right-justify, left-justify, or center strings in the 
output field. In addition, the user can specify an image that causes the width of the output field to be 
extended if the string is larger than the image specifies. The format characters used for string output 


are: 
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(apostrophe) 


C (center) 

L  (left-justify) 
R — (right-justify) 
E (extend) 


A string image specification contains one apostrophe (') and as many of the format characters C, L, R, 
or E as are necessary to output the string. The apostrophe is counted with the format characters when 
BASIC determines the length of the output field. The format characters cannot be mixed within an 
image specification. If the image specification contains only the apostrophe, only the first character 


in the string is output. The characters in a string image specification must be contiguous. 


C Format Character 


C format characters following the apostrophe in a string image specification cause the string to be 

centered in the output field. If a string cannot be exactly centered (e.g., a two-character string ina 
three-character field), it will be off-center one character position to the left. If the string to be out- 
put is longer than the image specification, the string is left-justified in the output field and the right- 


most characters that overflow are truncated. 


L Format Character 


L format characters following the apostrophe in a string image specification cause the string to be left- 
justified in the output field. If the string to be output is longer than the image specification, the string 


is left-justified in the field and the rightmost characters that overflow are truncated. 


R Format Character 


R format characters following the apostrophe in a string image specification cause the string to be 


right-justified in the output field. If the string to be output is longer than the image specification, the 


string is left-justified in the field and the rightmost characters that overflow are truncated. 


E Format Character 


E format characters following the apostrophe in a string image specification cause the string to be left- 


justified in the output field. If the string to be output is longer than the image specification, the out- 


put field is widened (extended) to the right to accommodate all the characters in the string. 


The following example shows the use of string image specifications. 
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100 : 'CCCC ‘EERE ‘LLLL ‘'KRKK ' 


110 INPUT AS 
120 IF AS="STOP" GO TO 158 
130 PRINT USING 1005 ASsASsA5sA52AS 
140 GO TO 116 
150 END 
RUNNH 
2?ABCD 
ABCD ABCD ABCD ABCD A 
?7ABCDEF 
ABCDE ABCDEF ABCDE ABCDE A 
2A 

A A A A A 
72 LOR 


Note that the last three fields in the second line printed are displaced one position because of the field 


extension necessary in the second field of the line. 


11.2.4 Printing Characters 


All characters in an image that are not format control characters are printing characters. Printing 


characters are output exactly as they appear in the image. Format control characters only appear as 


part of image specifications; if a character used as a format control character (e.g., $, E, *) does 


not appear as part of an image specification, it is treated as a printing character. If the USING 


statement does not use all of the specifications in an image, all of the printing characters except those 
following the unused specifications are printed. Similarly, if the USING statement uses the specifica- 


tions in an image more than once, the printing characters in the image will be output as many times as 


the image is used. An example showing the use of printing characters in images follows. 


10) : °E TRUNCATED "RRRR ROONDED 
as) : THE DATE IS: "RERERRRR1IO7T2 
30) sA=### AND THE SQUARE ROOT OF A=## 
AA PRINT USING 295" 1-JULY-" 
1%) PRINT 
60 PRINT USING 195 “ALL NUMERIC OUTPUT FROM THIS PROGRAM IS" 
70 PRINT 
80 A=25 
97 PRINT USING 305 As SGRCA) 
100 END 
READY 
RUNNH 
THE DATE IS: 1-JULY-1972 


ALL NUMERIC OUTPUT FROM THIS PROGRAM IS TRUNCATED 


A= 25 AND THE SQUARE ROOT OF A= 5 
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September 1972 


APPENDIX A 
SUMMARY OF BASIC STATEMENTS 


A.1 ELEMENTARY BASIC STATEMENTS 


The following subset of the BASIC command repertoire includes the most commonly used commands and 


is sufficient for solving most problems. 


DATA [data list] 


READ [sequence of variables] 


PRINT [sequence of formulas and 
format control characters] 


LET [variable] = [formula] or 


[variable] = [formula] 


GO TO [line number] 


IF [formula] [relation] [formula] , 


{Go To} [line number] 


FOR bowteth = [formula, | TO 


variable 


[formula, | { y [formula, ] 


NEXT 


NEXT 


numeric ie 
variable 


numeric numeric 


variable, variable, ... 
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numeric 
variable 


DATA statements are used to supply one or more 
numbers or alphanumeric strings to be accessed by 
READ statements. READ statements, in turn, assign 
the next available data, numeric or string as appro- 
priate, in the DATA statement to the variables 
listed. 


Types the values of the specified formulas, which 
may be separated by format control characters. If 
two formulas are not separated by one or more for- 
mat control characters, they are treated as though 
they were separated by a semicolon. 


Assigns the value of the formula to the specified 
variable. 


Transfers control to the line number specified and 
continues execution from that point. 


If the stated relationship is true, then transfers con- 
trol to the line number specified; if not, continues 
in sequence. The comma preceding THEN and GO 
TO is optional. 


Used for looping repetitively through a series of 
steps. The FOR statement initializes the variable 
to the value of formula, and then performs the fol- 
lowing steps until the NEXT statement is encountered. 
The NEXT statement increments the variable by the 
value of formulag. (If omitted, the increment value 
is assumed to be +1.) The resultant value is then 
compared to the value of formula. If variable 
<formulay, control is sent back to the step following 
the FOR statement and the sequence of steps is re- 
peated; eventually, when variable > formulas, con- 
trol continues in sequence at the step following the 
current NEXT argument. 
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GOT 
THEN 


[line numbers ,] ve 


ON Ix], . [line number, ,1 


.Lline number, ] 


DIM [variable ] (subscript) or 
DIMENSION [variable] (subscript) 


END 


A.2 ADVANCED BASIC STATEMENTS 


or 


GOSUB [line number] 


[line number] 


Subroutine 
RETURN 
INPUT [variable(s)] 


STOP 
REM 
RESTORE 
string formula 
CHANGE or 
numeric vector 
TO 
numeric vector 
or 


string variable 


CHAIN [string formula] 
CHAIN [string formula] , 


[numeric formula] 
MARGIN [numeric formula] 
PAGE [numeric formula] 


NOPAGE 
QUOTE 
NOQUOTE 
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If the integer portion of x = 1, transfers control to 
line number), if x = 2, to line numbery, etc. [x] 
may be a formula. The comma preceding GO TO 
and THEN is optional. 


Enables the user to enter a table or array with a 


subscript greater than 10 (i.e., more than 10 items). 


Last statement to be executed in the program, ‘and 
must be present. 


Simplifies the execution of a subroutine at several 


different points in the program by providing an auto- 


matic RETURN from the subroutine to the next se- 


quential statement following the appropriate GOSUB 


(the GOSUB which sent control to the subroutine). 


Causes typeout of a ? to the user and waits for user 
to respond by typing the value(s) of the variable(s). 


Equivalent to GO TO [line number of END state- 
ment] . 


Permits typing of remarks within the program. The 
insertion of short comments following any BASIC 
statement (except an image statement) is accom- 
plished by preceding such comments with an apos- 
trophe (‘). 


Sets pointer back to beginning of string of DATA 
values. 


Changes a string formula to a numeric vector, or 
changes a numeric vector to a string variable. 


Stops execution of the current program and begins 
execution of the new program at the beginning or 
at the specified line. 


Sets the Teletype to the specified output margin. 


Output to the Teletype is divided into pages of the 
specified length. : 


Output to the Teletype is not divided i into pages. 
The Teletype is set to quote mode (see Chapter 10). 


The Teletype is set to noquote mode (see Chapter 10). 
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line number 
PRINT USING or 

string formula] , 
[sequence of formulas] 


A.3 MATRIX INSTRUCTIONS 


Types the values of the formulas in the format de- 
termined by the image specified by the line number 
or string formula. 


NOTE 


The word "vector" may be substituted for the word 
"matrix" in the following explanations. 


MAT READ a, b, c 


MAT c= ZER 
MAT c = CON 
MAT c= IDN 
MAT PRINT a, b, ¢ 
MAT INPUT v 
MAT b= a 

MAT c=atb 
MAT c=a-b 
MAT c=a *b 
MAT c = TRN(a) 
MAT c= (k) * a 


MAT c = INV(a) 


Read the three matrices, their dimensions having 
been previously specified. 


Fill out c¢ with zeros. 

Fill out c with ones. 

Set up c as an identity matrix. 
Print the three matrices. 

Input a vector. 

Set matrix b = matrix a. 

Add the two matrices, a and b. 
Subtract matrix b from matrix a. 
Multiply matrix a by matrix b. 
Transpose matrix a. 


Multiply matrix a by the number k. (k, which 
must be in parentheses, may also be given by a 
numeric formula. ) 


Invert matrix a. 


(Refer to Section A.5 for the special matrix functions NUM and DET.) 


A.4 DATA FILE STATEMENTS 


FILE [sequence of [channel specifier] 
[filename arguments] ] 


FILES [sequence of filename arguments] 


SCRATCH [sequence of channel 
specifiers] 


RESTORE [sequence of channel 
| specifiers] 
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Assigns files to channels during program execution. 


Assigns files to channels before program execution 
begins. 


Erases a sequential access file and puts if in write 
mode; or erases a random access file and sets the 
record pointer to the beginning of the file. 


Puts a sequential access file in read mode or sets 
the record pointer for a random access file to the 
beginning of the file. 
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WRITE [channel specifier] 
[sequence of formulas] 


READ [channel specifier] 
[sequence of variables] 


PRINT [channel specifier] 
[sequence of formulas] 


INPUT [channel specifier] 
[sequence of variables] 


IF END [channel specifier] , 
GO ae [line number] 
MARGIN [sequence of [channel 


specifier] [numeric formula] ] 


MARGIN ALL [numeric formula] 


PAGE [sequence of [channel 
specifier] [numeric formula] ] 


PAGE ALL [numeric formula] 


NOPAGE [sequence of channel 
specifiers] 


NOPAGE ALL 


QUOTE [sequence of channel 
specifiers] 


QUOTE ALL 


NOQUOTE [sequence of channel 
specifiers] 


NOQUOTE ALL 


SET Lsequence of [channel specifier] 


[numeric formula] ] 


PRINT [channel specifier] , USING 


line number 
a [sequence of 
: formulas] 
string formula 
or 


PRINT USING [channel specifier] , 


line number [sequence of 
string formula} ’ formulas] 
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Causes data to be output to a file on the specified 
channel. Used for sequential access files with line 
numbers, or for random access files. 


Causes data to be input from a file on the specified 
channel. Used for sequential access files with line 
numbers or for random access files. 


Causes data to be output to a file on the specified 
channel. Used for sequential access files without 
line numbers or for random access files. 


Causes data to be input from a file on the specified 
channel. Used for sequential access files without 
line numbers or for random access files. 


Determines whether or not there is data ina file 
between the current position and the end of the file. 
The comma preceding THEN or GO TO is optional. 


Sets the specified output margins for the sequential 
access files on the specified channels. 


Sets the specified output margin for the sequential 
access files on channels | through 9. 


Sets the specified output page sizes for the sequential 
access files on the specified channels. 


Sets the specified output page size for the sequential 
access files on channels 1 through 9. 


Output to the sequential access files on the spec- 
ified channels is not divided into pages. 


Output to the sequential access files on channels 
1 through 9 is not divided into pages. 


Puts the sequential access files on the specified 
channels into quote mode (see Chapter 10). 


Puts the sequential access files on channels 1 
through 9 into quote mode (see Chapter 10). 


Puts the sequential access files on the specified 
channels into noquote mode (see Chapter 10). 


Puts the sequential access files on channels 1 
through 9 into noquote mode (see Chapter 10). 


Moves the record pointers for random access files. 


Causes data to be output to a sequential access file 
without line numbers on the specified channel. 

The data is output in the format determined by the 
image specified by the line number or string for- 
mula. In the first form, the comma following the 
channel specifier can bs omitted. 
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WRITE [channel specifier] , USING 
line number 
or 
string formula 


[sequence of 
formulas] 


or 
WRITE USING [channel specifier] , 
line number | [sequence of 
or ’ formulas] 
string formula 


A.5 FUNCTIONS 


Causes data to be output to a line-numbered se- | 
quential access file on the specified channel. The 
data is output in the format determined by the image 
specified by the line number or string formula. In 
the first form, the comma following the channel 
specifier can be omitted. 


In addition to the common arithmetic operators of addition (+), subtraction (-), multiplication (*), 


division (/), and exponentiation (t or **), BASIC includes the following elementary numeric functions: 


SIN (numeric formula) COT (numeric formula) LOG, or LN, or LOGE (numeric formula) 


COS (numeric formula) ATN = (numeric formula) ABS 
TAN (numeric formula) EXP (numeric formula) SQR or SQRT 


(numeric formula) 
(numeric formula) 


(numeric formula) 


CLOG or LOGIO 


Some advanced numeric functions include the following: 


INT = (numeric formula) 


RND 


SGN (numeric formula) 


TIM 


Finds the greatest integer not greater than its argu- 
ment. 


Generates random numbers between 0 and 1. The 
same set of random numbers can be generated re- 
peatedly for purposes of program testing and debug- 
ging. The statement 


RANDOMIZE 


can be used to cause the generation of new sets of 
random numbers. 


Assigns a value of 1 if its argument is positive, 0 
if its argument is 0, or -1 if its argument is negative. 


Returns the elapsed execution time, in seconds, 
since the program started execution. The time does 
not include compile and load time except when 
programs are chained. In such a case, the compile 
and load times of the programs after the first are in- 
cluded in the time returned. 


Two functions used with matrix computations are as follows: 


NUM 
DET 


Two functions for use with random access files are: 


LOC (channel specifier) 


LOF (channel specifier) 
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Equals number of components following an INPUT. 


Equals the determinant of a matrix after inversion. 


Returns the number of the current record in the file 
on the specified channel. 


Returns the number of the last record in the file on 
the specified channel. 
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Functions for manipulating strings are: 


ASC (one character or a 2- or Returns the decimal ASCII code for its argument. 
3-letter code) The two- or three-letter codes are listed in Table 
8-1, 
CHR$ (numeric formula) The opposite function to ASC. The argument is 


truncated to an integer that is interpreted as an 
ASCII decimal number; a one-character string is 


returned, 
INSTR (numeric formula, string Searches for the second string within the first string 
formula, string formula) argument. In the first form, the search starts at the 
or character position specified by the numeric formula, 
INSTR (string formula, string truncated to an integer. In the second form, the 
formula) search starts at the beginning of the string. Returns 


zero if the substring not found; returns the position 
of the first character in the substring if it is found. 


LEFT$ (string formula, numeric Returns a substring of the string formula, starting 
formula) from the left. The substring contains the number of 
characters specified by the numeric formula trun- 
cated to an integer. | 


LEN (string formula) Returns the number of characters in its argument. 
MID$ (string formula, numeric Returns a substring of the string formula, starting at 
formula, numeric formula) the character position specified by the first numeric 
or formula truncated to an integer. In the first form, 
MID$ (string formula, numeric the substring contains the number of characters 
formula) specified by the second numeric formula truncated 


to an integer. In the second form, the substring 
continues to the end of the string. 


RIGHT$ (string formula, numeric Returns a substring of the string formula, starting 
formula) from the right, containing the number of characters 

specified by the numeric formula truncated to an 
integer. 

SPACE$ (numeric formula) Returns a string of the number of spaces specified 
by the numeric formula truncated to an integer. 

STR$ (numeric formula) Returns a string representation of its argument. 

VAL (string formula) The opposite function to STR$. Returns the number 


that the string argument represents. 


The user can also define his own functions by use of the DEFine statement. For example, 


Cline number] DEF FNC(x) = SIN (x) + TAN(x) = 10 


where x is a dummy variable. (Define the user function FNC as the formula SIN(x) + TAN(x) - 10.) 


NOTE 


DEFine statements may be extended onto more than one 
line; all other statements are restricted to a single line 
(refer to Section 5.1.5). 
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APPENDIX B 


BASIC DIAGNOSTIC MESSAGES 


Most messages typed out by BASIC are self-explanatory, BASIC diagnostic messages are divided into 


three categories and listed in the three tables below: 


a. Command errors in Table B-1 
b. Compilation errors in Table B-2 


c. Execution errors in Table B-3 


Table B-1 
Command Error Messages 


?CANNOT INPUT FROM THIS DEVICE 


2?CANNOT OUTPUT TO THIS DEVICE 
?CANNOT OUTPUT filenm. ext 


?CATALOG DEVICE MUST BE DISK OR 
DECtape 


2?COMMAND ERROR (YOU MAY NOT OVER- 
WRITE LINES OR CHANGE THEIR ORDER) 


2COMMAND ERROR (LINE NUMBERS MAY 
NOT EXCEED 99999) 


?DELETE COMMAND MUST SPECIFY WHICH 
LINES TO DELETE 


DUPLICATE FILENAME, REPLACE OR 
RENAME 


| 2DUPLICATE SWITCH IN QUEUE ARGUMENT 
FILE dev:filenm.ext COULD NOT BE 


UNSAVED 
?FILE dev:filenm.ext NOT FOUND 


Version 17 BASIC 


An attempt has been made to input to a device that 
can only do output, or vice versa. 


A COPY, SAVE, or REPLACE command could not 
enter a file to output it. The actual name of the 
file is typed, not filenm.ext. 


A device other than disk or DECtape was specified 
in a CATALOG command. 


The given RESEQUENCE command would have 
changed the order of lines in the file. The com- 
mand is ignored. 


The given RESEQUENCE command is not executed 
for that reason. 

A DELETE command has no arguments. 

User tried to SAVE a file that already exists. 

Two switches of the same type have been specified 


for one QUEUE argument, 


A file that was requested did not exist. 
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Table B-1 (Cont) 


Command Error Messages 


?LINE TOO LONG 


?LOGOUT FAILED -- TRY AGAIN 


?MISSING LINE NUMBER FOLLOWING 
LINE nn* 


?NO SUCH DEVICE, device 


2PAGE LIMIT >9999 OR < 1 IN QUEUE 
ARGUMENT 


?QUOTA EXCEEDED OR BLOCK NO, TOO 
LARGE ON OUTPUT DEVICE 


?THIS COMMAND IS NOT IMPLEMENTED FOR . 
THIS MONITOR 


?UNDEFINED LINE NUMBER mm IN LINE nn 


2U NSAVE DEVICE MUST BE DISK OR DECTAPE, 
FILE dev:filenm. ext 


2WHAT? 


?>63 OR < 1 COPIES REQUESTED IN QUEUE 
ARGUMENT 


Explanation 


A line of input is greater than 142 characters, not 
counting the terminating carriage return, line feed. 


A BYE or GOODBYE command could not transfer 
control to the LOGOUT system program. 


During a WEAVE or OLD command, a line without 
a line number was found in the file. The line is 
thrown away, 


The device is not available. 


A LIMIT switch for a QUEUE argument was out of 
bounds. 


Normally, this indicates that all of the space allow- 
ed on the output device has been used; no more can 
be output to this device unless some of the user's 
files are deleted from it. This can also mean that 
the block numer is too large for the output device. 


A device other than disk or DECtape was specified 
in an UNSAVE command. 


Catchall command error. 


A COPIES switch for a QUEUE argument was out of 
bounds. 


*If the current program was called by a CHAIN statement, the name of the current program is appended 
to the error message. 
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Table B-2 
Compilation Error Messages 


?BAD DATA INTO LINE n Input data is not in correct form. 
?DATA IS NOT IN CORRECT FORM 


Incorrect number or string data in a DATA state- 
ment. 


?END IS NOT LAST IN nn 
?EOF IN LINE nn 


An attempt was made to read data from a file after 
all data had been read. 


Channel is not available for SCRATCH command. 
FNEND occurs, but not in a function DEF. 
A FOR occurred in a DEF, but its NEXT did not. 


?FAILURE ON ENTRY IN LINE nn 
?FNEND BEFORE DEF IN LINE nn 
?FNEND BEFORE NEXT IN LINE nn 
?FOR WITHOUT NEXT IN LINE nn 
?GOSUB WITHIN DEF IN LINE nn 
FUNCTION DEFINED TWICE IN LINE nn 
? ILLEGAL ARGUMENT FOR ASC FUNCTION 
IN LINE nn 
? ILLEGAL CHARACTER IN LINE nn 
?ILLEGAL CONSTANT IN LINE nn 
? ILLEGAL FORMAT IN LINE nn 
?PILLEGAL FORMAT WHERE THE WORDS 
THEN OR GO TO WERE EXPECTED IN 
LINE nn 
? ILLEGAL FORMULA IN LINE nn 
?ILLEGAL INSTRUCTION IN LINE nn 


A GOSUB statement is within a multiple line DEF. 


A meaningless character; e.g., DIM# (1). 


Catchall for other syntax errors. 


Syntax error in arithmetic formula. 


The first three non-blank, non-tab characters of 
the statement do not match the first three charac- 
ters of any legal statement. 


PILLEGAL LINE REFERENCE IN LINE nn BASIC syntax required an integer, but user typed 


something else; e.g., GO TOA. 


? ILLEGAL LINE REFERENCE mm IN LINE nn 


In line nn, line mm was referred to illegally 
because: 


a. Line mm is a REM 

b. The first character in line mm is an 
apostrophe ('). 

c. One of the lines nn or mm is inside 
a function; the other is not inside 


that function. 
Incorrect IF relation. 


?ILLEGAL RELATION IN LINE nn 
?ILLEGAL VARIABLE IN LINE nn 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all compilation error messages. For example, NO DATA IN TEST.BAK. 
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| Table B-2 (Cont) 
Compilation Error Messages 


| 


? INCORRECT NUMBER OF ARGUMENTS IN A function used with the wrong number of argu- 
LINE nn ments. 


?INITIAL PART OF STATEMENT NEITHER 


MATCHES A STATEMENT KEYWORD NOR 
HAS A FORM LEGAL FOR AN IMPLIED LET-- 
CHECK FOR MISSPELLING IN LINE nn 


?MIXED STRINGS AND NUMBERS IN LINE nn Line nn illegally contains a string variable or lit- 


eral because: 


a. No element of this statement may be a 
string. 


b. All elements must be strings but some 
were not. | 


DEF within multiline DEF. 


? NESTED DEF IN LINE nn 
?NEXT WITHOUT FOR IN LINE on 
?nn IS NOT AN IMAGE IN LINE nn 


The specified line was referenced by a USING 
statement as an image, but it is not an image state- 
ment. 


?NO CHARACTERS IN IMAGE IN LINE nn 


?NO DATA Program contains READ but not DATA. | | 
?2NO END INSTRUCTION 
2?NO FNEND FOR DEF FNx The multiline DEF for FNx (the actual function 
name, not FNx is typed) has no FNEND. 
2OUT OF ROOM Cannot get more core to make room for: 
a. More compilation space. 
b. Maximum space for all the vectors (am, 
and arrays 
c. Space to store another string during 
execution, 
?RETURN WITHIN DEF IN LINE nn A RETURN statement is within a multiple line DEF. 
?SPECIFIED LINE IS NOT AN IMAGE IN | 
LINE nn 
?STRING RECORD LENGTH 3132 ORCI IN The length of a record in a string random access ~ 
LINE nn file was specified as greater than 132 or less than 1. a 
?STRING VECTOR IS 2-DIM ARRAY The user managed to do this error despite many : 


other checks. 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all compilation error messages. For example, NO DATA IN TEST. BAK. 
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Table B-2 (Cont) 
Compilation Error Messages 


?SYSTEM ERROR An I/O error, or the UUO mechanism drops a bit, 
or something similar to those errors. 


?TOO MANY FILES IN LINE nn 


A maximum of nine files can be open at one time 
in a program. 


? UNDEFINED FUNCTION -- FNx 
?UNDEFINED LINE NUMBER mm IN LINE nn 


The actual function name, not FNx, is typed. 


In line nn, mm is used as a line number. Line num- 
ber mm does not exist. 


?USE VECTOR, NOT ARRAY IN LINE nn 


A variable previously defined as a two-dimensional 
array is now used in MAT input or CHANGE. 


?VARIABLE DIMENSIONED TWICE IN LINE nn 
2VECTOR CANNOT BE ARRAY IN LINE nn 


A variable previously used in a MAT INPUT or 
CHANGE statement is now defined as a 2-dimen- 
sional array in a DIM statement. 


?Character, WAS SEEN WHERE character 


An erroneous character was used in place of the 
WAS EXPECTED IN LINE nn 


correct character. Character, and character, are 
replaced by the appropriate characters or “a 

phrase describing the characters when the message 
is issued. 


2 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all compilation error messages. For example, NO DATA IN TEST. BAK. 


Table B-3 
Execution Error Messages 


%ABSOLUTE VALUE RAISED TO POWER IN 
LINE nn 


?ATTEMPT TO OUTPUT A NEGATIVE NUMBER A USING statement attempted to output a negative 
TO A $ OR * FIELD IN LINE nn number to a floating dollar sign or leading asterisk 
field that did not end in a minus sign. 


2ATTEMPT TO OUTPUT A NUMBER TO A A USING statement attempted to output a number 
STRING FIELD OR A STRING TO A NUMERIC to a string field or a string to a numeric field. 
FIELD IN LINE nn 


ATTEMPT TO READ# OR INPUT# FROM A An attempt was made to read from a file that does 
FILE WHICH DOES NOT EXIST IN LINE nn not exist on the user's disk area. 


ATTEMPT TO READ* OR INPUT# FROM A An attempt was made to read from a sequential 
FILE WHICH IS IN WRITE# OR PRINT# MODE access file that is not in read mode. 
IN LINE nn 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all execution error messages. For example, LOG OF ZERO IN 20 IN TEST. BAK. 
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Table B-3 (Cont) 
Execution Error Messages 


?ATTEMPT TO WRITE A LINE NUMBER 
>99,999 IN LINE nn 


2ATTEMPT TO WRITE# OR aie TOA | 
FILE WHICH HAS NOT BEEN SCRATCH#ED 
IN LINE nn 


2ATTEMPT TO WRITE# OR PRINT? TO A 
FILE WHICH IS IN READ# OR INPUT# 
MODE IN LINE nn 


2CHR$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 


?DATA FILE LINE TOO LONG IN LINE nn 


?DIMENSION ERROR IN LINE nn 
%DIVISION BY ZERO IN LINE nn 


?EXPONENT REQUESTED FOR * OR $ FIELD 
IN LINE nn 


?FILE IS NOTRANDOM ACCESS IN LINE nn 


?FILE NEVER ESTABLISHED -- REFERENCED 
IN LINE nn 


?FILE NOT FOUND BY RESTORE COMMAND 
IN LINE nn 


?FILE filenm.ext ON MORE THAN ONE 
CHANNEL IN LINE nn 


?FILE NOT IN CORRECT FORM IN LINE nn 


?FILE RECORD LENGTH OR TYPE DOES NOT 
MATCH IN LINE nn 


? IF END ASKED FOR UNREADABLE FILE IN 
LINE nn — 


T An OVERFLOW error message means that an attempt has been made to create a number larger in mag- 


An attempt was made to write to a sequential 
access file that is not in write mode. 


An attempt was made to write to a sequential 
access file that is not in write mode. 


The argument to the CHR$ function was less than 
zero or greater than 127. 


An attempt has been made to read from a data file 
a line which is greater than 142 characters long. 


The user tried to establish the same file on more 
than one channel. The actual filename and ex- 
tension are typed, not filenm.ext. 


A data error has been detected in a string random 
access file. 


An existing random access file does match the type 
or record length specified for it in a FILE statement. 


nitude than the largest number representable in the computer (approximately 1.7E + 38); when this 
occurs, the largest representable number is returned (with the correct sign) and execution continues. 
An UNDERFLOW error message means that an attempt has been made to create a nonzero number 
smaller in magnitude than the smallest representable positive number (approximately 1.4E +39); in this 


case, zero is returned and execution continues. 
representable positive number is returned. 


NOTE: 


appended to all execution error messages. 


B-6 


Division by zero is considered overflow; the largest 


If the current program was called by a CHAIN statement, the name of the current program is 
For example, LOG OF ZERO IN 20 IN TEST. BAK. 


Table B-3 (Cont) 


Execution Error Messages 


?ILLEGAL CHARACTER IN STRING IN LINE nn 


An attempt has been made to write onto a data 
file a string containing an embedded line termina- 
tor or quote. 


? ILLEGAL CHARACTER SEEN IN LINE nn 


An attempt has been made to create an illegal 
character in a CHANGE statement. 


? ILLEGAL FILENAME IN LINE nn 


The string argument is not in the correct form. If 
the argument is variable, check that it has been 
defined. 


? ILLEGAL LINE REFERENCE IN RUN (NH) OR 
CHAIN 


PIMPOSSIBLE VECTOR LENGTH IN LINE nn 


The line at which execution is to begin is inside a 
multiline DEF. 


In a CHANGE (to string) statement, the zero ele- 
ment of the number vector was negative or exceeded 
its maximum dimension. 


? INPUT DATA NOT IN CORRECT FORM -- 
RETY PE LINE 


2? INSTR ARGUMENT OUT OF BOUNDS IN 
LINE nn 


?LEFT$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 


?LINE NUMBER OUT OF BOUNDS IN LINE 


nn 


The line number argument is less than zero or 
greater than 99,999. The RUN (NH) commands 
return a ?WHAT? message in this situation. 


%LOG OF NEGATIVE NUMBER IN LINE nn 
%LOG OF ZERO IN LINE nn 


%MAGNITUDE OF SIN OR COS ARG TOO 
LARGE TO BE SIGNIFICANT IN LINE nn 


When the argument for COS or SIN is too large to 
be significant, this message is issued and an answer 
of 0 returned. 


A MARGIN or MARGIN ALL statement specified a 
margin greater than 132 characters or less than | 
character. 


?MARGIN OUT OF BOUNDS IN LINE nn 


A WRITE# statement referenced a file that has a 
margin of fewer than seven characters. 


?MARGIN TOO SMALL IN LINE nn 


?MID$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 


?MIXED RANDOM & SEQUENTIAL ACCESS 
IN LINE nn 


A random access statement or function referenced 
a sequential access file, or vice versa. 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all execution error messages. For example, LOG OF ZERO IN LINE 20 IN TEST. BAK. 
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Table B-3 (Cont) 
Execution Error Messages 


2MIXED READ# A. NPUT# IN LINE nn 


An attempt was made to reference a file with both 


vening RESTORE® statement. 


MIXED WRITE# /PRINT# IN LINE nn An attempt was made to reference a file with both 
a WRITE and a PRINT# statement without an inter- 


vening SCRATCH# statement. 


Ina MID$, LEFT$, or RIGHT$ function, a negative 
number of characters was specified for a substring. 


? NEGATIVE STRING LENGTH IN LINE nn 


?2NO FIELDS IN IMAGE IN LINE nn 
2NO ROOM FOR STRING IN LINE nn 


An image contains neither string nor numeric fields. 


In a CHANGE A$ TO A, the number of characters 
in A$ exceeds the maximum size of A. A DIM 
statement appropriately increasing the size of A 
will cover this. 


?NO SUCH LINE IN RUN (NH) OR CHAIN 
2 NOT ENOUGH -- ADD MORE 
?2?ON EVALUATED OUT OF RANGE IN LINE nn 


The specified line does not exist in the program. 


The value of the ON index was <1 or > the num- 
ber of branches. 


?OUT OF DATA IN LINE nn 


?OUTPUT ITEM TOO LONG FOR LINE IN 
LINE nn 


?OUTPUT LINE 132 CHARACTERS IN 
LINE nn 


?2OUTPUT STRING LENGTH RECORD 
LENGTH IN LINE nn 


In quote mode, an attempt was made to write a 
string or number that is too long to fit on one line. 


A line of output created by a USING statement 
is greater than 132 characters. 


An attempt has been made to output to a random 
access file a string which is too long to fit in one 
record. 


tT 


An exponent greater than 88.028 has been speci- 
fied for the EXP function. An answer of the largest 
representable number is returned and execution con- 
tinues. Tt 


%OVERFLOW IN LINE nn 
YOVERFLOW IN EXP IN LINE nn 


T An OVERFLOW error message means that an attempt has been made to create a number larger in mag- 
nitude than the largest number representable in the computer (approximately 1.7E + 38); when this 
occurs, the largest representable number is returned (with the correct sign) and execution continues. 
An UNDERFLOW error message means that an attempt has been made to create a nonzero number 
smaller in magnitude than the smallest representable positive number (approximately 1.4E - 39); in 
this case, zero is returned and execution continues. Division by zero is considered overflow; the 
largest representable positive number is returned. 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all execution error messages. For example, LOG OF ZERO IN 20 IN TEST.BAK. 


a READ# and an INPUT# statement without an inter-| 


* 


Table B-3 (Cont) 
Execution Error Messages 


?PAGE LENGTH OUT OF BOUNDS IN LINE nn | A PAGE or PAGE ALL statement specified a page 
length of less than one line. 


?QUOTA EXCEEDED OR BLOCK NO. TOO 
LARGE ON OUTPUT DEVICE 


Normally, this indicates that all of the space 
allowed on the output device has been used; no 
more can be output to this device unless some of 
the user's files are deleted from it. It may also 
mean that the block number is too large for the 
output device. 


?RETURN BEFORE GOSUB IN LINE nn 


?RIGHT$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 


?SET ARGUMENT OUT OF BOUNDS IN 
LINE nn 


% SINGULAR MATRIX INVERTED IN LINE nn 


2SPACE$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 


The user attempted to set the value of the pointer 
to zero or to a negative number. 


The SPACE$ function was requested to return a 
string that was less than or equal to zero or greater 
than 132 characters. 


%SQRT OF NEGATIVE NUMBER IN LINE nn 


?STRING FORMULA 132 CHARACTERS IN 
LINE nn 


?STRING RECORD LENGTH 132 OR 1 IN 
LINE nn 


A string formula contains more than 132 characters. 


The record length for a string random access file 
was specified as less than one or greater than 132 
characters. 


FNA is defined in terms of FNB which is defined 
in terms of FNA, or a similar situation with FUNC- 
TIONS or GOSUBS. 


?SUBROUTINE OR FUNCTION CALLS ITSELF 
IN LINE nn 


%TAN OF P1/2 OR COTAN OF ZERO IN 
LINE nn 


?2?TOO MANY ELEMENTS -- RETYPE LINE 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended fo all execution error messages. For example, LOG OF ZERO IN 20 IN TEST. BAK. 
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Table B-3 (Cont) 
Execution Error Messages 


%UNDERFLOW IN EXP IN LINE nn 


An exponent less than -88.028 has been specified 
for the EXP function. An answer of zero is re- 
turned and the execution continues. 


T 


The string argument to the VAL function does not 
represent a legal number. 


% UNDERFLOW IN LINE nn 


?2VAL ARGUMENT NOT IN CORRECT FORM 
IN LINE nn 


%ZERO TO A NEGATIVE POWER IN LINE nn 


T An OVERFLOW error message means that an attempt has been made to create a number larger in mag- 
nitude than the largest number representable in the computer (approximately 1.7E + 38); when this 
occurs, the largest representable number is returned (with the correct sign) and execution continues. 
An UNDERFLOW error message means that an attempt has been made to create a nonzero number 
smaller in magnitude than the smallest representable positive number (approximately 1.4E - 39); in 

this case, zero is returned and execution continues. Division by zero is considered overflow; the 
largest representable positive number is returned. 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all execution error messages. For example, LOG OF ZERO IN 20 IN TEST.BAK. 


APPENDIX C 
TAPE AND KEY COMMANDS 


The TAPE and KEY commands are designed for user Teletypes with attached paper-tape readers; for 
example, the LT33B shown in Figure C-1. 


UNLOCK 
REL 


B. SP. 


LOCK ‘ON 


STOP 
FREE 


OFF 
LINE C) LOCAL 


Figure C-1 LT33B Teletype 


C.1 KEY AND TAPE MODES 


KEY mode is produced by typing the KEY command to BASIC. In this mode, the user types input to 
BASIC on the keyboard in the normal manner. KEY mode is also the default mode. 


TAPE mode is produced by typing the TAPE command to BASIC. The user initiates this mode whenever 


he wants to input from the paper tape reader while the Teletype is in LINE mode. 


C.2 PREPARING AN INPUT TAPE IN LOCAL MODE 


The following procedure should be followed for preparing an input tape. 


Step Procedure 
T Turn the Teletype control to LOCAL (see Figure C-1). 
2 Feed blank tape into the punch. 
3 Depress the LOCK "ON" control. 
4 Generate the leader tape by doing the following: 


a. Depress the SPACE bar several times. 
b. Depress the RETURN key once. 
c. Depress the LINE FEED key once. 


5 Type on the keyboard the commands and statements to be punched on the 
tape. 
a. At the end of each line, type both the RETURN and LINE 
FEED keys. 


b. If an incorrect character is typed, do the following: 


(1) Depress the BACKSPACE control 
(2) Depress the RUBOUT key. 
(3) Type the correct character. 


c. A TAB is received correctly when typed, even though the 
Teletype typewheel moves only one position to the right 
when TAB is typed. 


d. Any normal input to BASIC can be punched on the tape. 
A typical example is as follows: 


NEW 
TEST4 
5 PRINT “THIS IS A TEST" 


6 Generate a trailer tape by doing the following: 


a. Depress the SPACE bar several times. 
b. Depress the RETURN key once. 
c. Depress the LINE FEED key once. 


s 


f7"—, St 


Procedure 


ep 

7 Depress the UNLOCK control. 
8 Remove the tape from the punch. 
9 


Depress the CTRL and T keys simultaneously. 


= C.3 SAVING AN EXISTING PROGRAM ON TAPE 
ee The following procedure should be performed to save an existing program on tape. 
Step Procedure 
] Turn the Teletype control to LINE. 
2 Depress the LOCK "ON" control. 


Generate a leader tape by doing the following: 


a. Depress the SPACE bar several times. 
b. Depress the RETURN key once. 


4 Turn the Teletype control to LOCAL. 

S) Depress the UNLOCK control. 

6 Depress the CTRL and T keys simultaneously. 
7 Tum the Teletype control to LINE. 

8 
9 


Type the LISTNH command, but do not depress the RETURN key. 
Depress the LOCK "ON" control. 
10 Depress the RETURN key. 


im Wait until the program has been listed and the READY message has been 
typed, 
NOTE 


The tape will contain not only your program but also an 
extra line at the end with the READY message on it. 
This is not important. Since READY is not a legal com- 
mand, it will simply produce a WHAT? error message 
when the tape is input to BASIC, and then it will be 
ignored. 


12 Generate a trailer tape by doing the following: 
a. Depress the SPACE bar several times. 


a b. Depress the RETURN key once. 
13 Turn the Teletype control to LOCAL. 
. 14 Depress the UNLOCK control. 
15 Remove the tape from the punch. 
16 Depress the CTRL and T keys ‘simultaneously. 
an 17 Turn the Teletype control to LINE; now you are back in BASIC. 


C-3 


Step Procedure 


18 To stop the tape output while the program is being listed, do the following: 


a. Depress the UNLOCK control. 
b. Depress the CTRL and T keys simultaneously. 
c. Twice depress the CTRL and C keys simultaneously. 


C.4 INPUTTING TO BASIC FROM THE READER 
The following procedure should be followed for inputting to BASIC from the reader. 


Step Procedure 
] Turn the Teletype control to LINE. 


2 With the reader control on STOP (see Figure C-1), position the tape on 
the sprocket wheel and close the tape retainer cover. 


3 Type the command TAPE to BASIC. 

4 Depress the RETURN key. 

5 When BASIC answers READY, set the reader control to START. 

6 When the tape has been read in, set the reader control to STOP. 
7 Type KEY. 

8 Depress the RETURN key. 

9 Depress the LINE FEED key. (The Key mode is now restored. ) 
10 To stop the tape input while it is in progress, do the following: 


Switch the reader control to STOP. 

Twice depress the CTRL and C keys simultaneously. 
Type KEY. 

Depress RETURN. 

Depress LINE FEED. 


oaawaa 
e e e ee e@ 


NOTE 
Do not type on the keyboard without first 


stopping the tape. 
C.5 LISTING AN INPUT TAPE 
An input tape is listed in the following manner: 


Step Procedure 


1 Turn the Teletype control to LOCAL. (In LOCAL mode the tape is not in- 
putted to the computer. ) 
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4 


Step Procedure 


2 Set the reader to STOP. 

3 Put the tape in the reader. 

4 Set the reader to START. (The contents of the tape is then printed on the 
console. ) 


ABS, 1-6, A-5 
Absolute value, 1-6, A-5 
Access to BASIC, 4-1 


American Standard Code for Information Inter- 


change (ASCII), 8-4 


Apostrophe, 
Format character, 11-9 
Remarks indicator, 6-6 


Arithmetic operations, 1-5 
ASC function, 8-8, A-6 
ASCII numbers, 8-4 

ATN, 1-6, A-5 


B 


BAS (library), 4-2a, 9-16 
Bugs, 4-7 

BY, 2-2 

BYE, 4-5, 9-19 


C 


C format character, 11-9 
CATALOG, 9-16 
CHAIN, 6-6, A-2 
CHANGE, 8-3, A-5 
CHR$ function, 8-8, A-6 
CLOG, 1-6, A-5 


Comma, 
In image specification, 11-6 
In PRINT statement, 6-1 


Concatenation operator (+), 8-7 


Conditional GO TO 
see IF-THEN 


Constants 
see numbers 


Control commands, 9-1 
COPIES Switch (QUEUE), 9=6 
COPY, 9-11 


INDEX 


C (Cont) 


Correcting a BASIC program, 4-3, 4-4 
COS, 1-6, A-5 

COT, 1-6, A-5 

Creating a file, 9-1 

tC, 4-4, 9-12 


D 


DATA, 1-2, 1-9, 8-2, A-1 

Data block, 1-8, 8-3 

Data file capability, 10-1, A-3 
Debugging, 4-7 

Decimal image specification, 11-5 
DEF, 5-4, A-6 

Defined function, 5-4, A-6 
DELETE, 9-7 

DET, 7-6, A-5 

Define names, 4-2a 

Diagnostic messages, B-] 

DIM, 3-2, 3-4, 7-2, A-2 
DIMENSION, 3-2, 3-4, 7-2, A-2 
Dimensioning, 3-2, 3-4, 7-2, 7-3 


E 


E format character, 11-9 

Edit commands, 9-1, 9-7 

Edited numeric image specifications, 11-6 
END, 1-3, 1-12, A-2 

Entering a BASIC program, 4-3, 4-5, 9-1 


Errors 
grammatical, 4-6 
logical, 4-6 


Executing a BASIC program, 4-4, 9-12 
EXP, 1-6, A-5 


Extensions (filename), 4-2a 


INDEX-1 


INDEX (Cont) f ON 


F | (Cont) 
FILE, 10-4, A-3 Inputting from Paper-Tape Reader, C-4 
Filename, 4-2a INSTR function, 8-12, A-6 
FILES, 10-4, A-3 INT, 5-1, A-5 % 
Creating, 9-1 Integer function, 5-1, A-5 
Editing, 9-7 : ee a & 
Listing, 9-5 Integer image specification, 11-4 
Saving, 9-10 Interrupting execution of a BASIC program, 
Transferring, 9-10 4-4 
Floating dollar sign, 11-8 
FNEND, 5-4 . ~~ 
FOR, 2-2, A-1 KEY, 9-18, C-1 a 
Format characters, 11-3 KEY Mode, C-2 
G L 
Gaining Access to BASIC, 4-1 L format character, 11-9 
GOODBYE, 4-5, 9-19 Leading asterisk, 11-7 
GOSUB, 5-5, A-2 Leaving the computer, 4-5 ; 
GOTO, 1-3, 1-11, A-1 LEFT$ function, 8-10, A-6 


LEN function, 8-7, A-6 
LENGTH, 9-18 


H 
LET, 1-2, 1-8, A-] 
ecient LIMIT Switch (QUEUE), 9-6 
Hilbert matrix, 7-7 Line-numbered file, 10-1, 9-3 
Line numbers, 1-2, 1-4, 4-3, 9-7, 9-8 
| LIST, 9-5 
Identity matrix, 7-2, A-3 LIST REVERSE, 9-5 
IF END, 10-18, A-4 Lists, 3-1, 3-4 
IF-THEN, 1-2, 1-11, 8-2, 8-3, A-1 LN, 1-6, A-5 | 
Image specifications, 11-3 LOC function, 10-11, A-5 | . & 
Image statement, 11-2 LOF function, 10-11, A-5 | 
INPUT, 6-4, A-2 LOG, 1-6, A-5 % 


data file, 10-7, A-4 
Input/output channels, 10-1 


LOGE, 1-6, A-5 
LOGIO, 1-6, A-5 


Loops, 2-1 
nested, 2-5 


Input Tape, C=-2 
listing an, C-4 


~ INDEX-2 


INDEX (Cont) 


L (Cont) 


LT33B Teletype, C-1 


M 


MARGIN, 6-8, 10-15, A-2, A-4 
MARGIN ALL, 10-15, A-4 
Mathematical Functions, 1-6, A-5 


Matrices, 7-1 
MAT B=A, 7-5, A-3 
MAT C=A+B, 7-5, A-3 
MAT C=A -B, 7-5, A-3 
MAT C=A * B, 7-5, A-=3 
MAT C = CON, 7-2, A-3 
MAT C = IDN, 7-2, A-3 
MAT C = INV(A), 7-6, A-3 
MAT C = (K) * A, 7-5, A-=3 
MAT C = TRN(A), 7-5, A-3 
MAT C = ZER, 7-2, A-3 
MAT INPUT, 7-4, 8-2, A-3 
MAT PRINT, 7-3, 8-2, A-3 
MAT READ, 7-1, 8-2, A-3 


MID$ function, 8-10, A-6 
MONITOR, 4-5, 9-13 


Monitor commands, 9-14 
Monitor mode, 9-13 


N 


Natural logarithm, 1-6, A-5 
N-dimensional arrays, simulation of, 7-7 
Nested Loops, 2-4 

NEW, 4-1, 9-2 

NEXT, 2-2, 2-3, A-1 
Nonline-numbered files, 10-1 
NONAME, default to, 9-3 
NOPAGE, 6-8, 10-16, A-2, A-4 
NOPAGE ALL, 10-16, A-2 
NOQUOTE, 10-13, A-2, A-4 
NOQUOTE ALL, 10-13, A-4 
NUM, 7-4, 8-2, A-5 


N (Cont) 


Numbers, 1-7 


Numeric image specifications, 11-4 


eo) 
OLD, 4-2, 9-3 
ON-GO TO, 1-11, A=-2 
tO, 4-4, 9-6 

Pp 


<PA> delimiter, 6-1 
PAGE, 6-8, 10-16, A-2, A-4 
PAGE ALL, 10-16, A-4 


PRINT, 1-3, 1-10, 6-1, 8-1, 8-2, 10-9, 
10-11, A-1, A-4 


PRINT USING, 11-1, A-3, A-4 
Printing characters in images, 11-10 
Program names, 4-2a 


Pure data file, 10-2 


QUEUE, 9-6 
QUOTE, 10-13, A-2, A-4 
QUOTE ALL, 10-13, A-4 


R 


R format character, 11-9 

R BASIC, 4-2 

Random access files, 10-3 
Random numbers, 5-2, A-5 
RANDOMIZE, 5-3, A-5 | 
READ, 1-2, 1-9, 8-1, 8-2, 10-7, A-1, A-4 
Reading and Printing strings, 8-1] 


INDEX-3 


INDEX (Cont) 


R (Cont) S (Cont) 
Record size for random access files, 10-3 String constants, 8-1 
Relational symbols, 1-8 String conventions, 8-2 
REM, 6-5, A=-2 String image specifications, 11-9 
RENAME, 9-4 String manipulation functions, 8-7, A-6 
ASC, 8-8, A-6 

-_ A / & 
REPLACE, 9-10 CHR$, 8-8, A-6 
RESEQUENCE, 9-8 INSTR, 8-12, A-é 


LEFT$, 8-10, A-6 
RESTORE, 6-6, 8-3, A-2 LEN, 8-7, A-6 


data file, 10-16, A=-3 MID$, 8-10, A-6 
RETURN, 5-5, A-2 RIGHT$, 8-10, A-6 


; : SPACE$, 8-11, A-6 | 
Returning to monitor level, 4-5 STR$, 8-9, A-6 - 


RIGHTS functions, 8-10, A-6 VAL, 8-9, A-6 
RND, 5-2, A-5 String vectors, 8-1 
RUBOUT Key, 4-2a, 4-7 Strings, 6-3, 8-1 
RUN, 1-5, 4-4, 9-12 Subroutines, 5-5 
nested, 5-6 


RUNNH, 1-5, 4-4, 9-12 
Subscripts, 3-1, 3-4 


SYS (system device), 4-2a, 9-16 
SYSTEM, 9-13 


SAVE, 4-8, 9-10 
SCRATCH, 9-8 


data file, 10-6, A-3 i 
Semicolons (in PRINT), 6=1 TAB, 6-3 
Sequential access files, 10-1 | Tubles, 3-1, 3-4 
SET, 10-11, A-4 Tabs, 1-2 
SGN, 5-4, A=-5 TAN, 1-6, A-5 
Sign function, 5-4, A-5 TAPE, 9-18, C-2 
SIN, 1-6, A-5 TAPE Mode, C=2 
SPACES functions, 8-11, A-6 Text data file, 10-2 
Spaces, ]=-2 TIM, 5-4, A-5 2 
SQR, 1-6, A=5 Trailing minds sign, 11-6 
SQRT, 1-6, A-5 Transferring files, 9-10 ®, 
Statements, 1-2 
STEP, 2-2, 2-4 U 


STOP, 6-5, A-2 UNSAVE, 9-11 


UNSAVE Switch (QUEUE), 9-¢ 


String concatenation, 8-7 


INDEX-4 


a 


V 


VAL function, 8-9, A~6 


Variables 
alphanumeric, 8-1 
numeric, | -7 
subscripted, 3-1 


Vectors, 7-1 


WEAVE, 9-9 
WRITE, 10-9, 10-11, A-4 
WRITE USING, 11-1, A-5 
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